Visual Basic 2012 Solution