Forse non ho capito, cmq:

Dim MyString as String = MyText.Text.ToString()

Dim MyInteger as Int16 = Int16.Parse(MyText.Text)

Ovviamente se il testo non è convertibile in int viene generato un errore.