Editing a string into 2 strings

[dday9]

Assuming that the pair would be only 1 letter and x amount of numbers, something like this may work:

Dim letter As String
        Dim number As Integer
        letter = TextBox1.Text.Substring(0, 1)
        number = Integer.Parse(TextBox1.Text.Substring(1, CInt(TextBox1.TextLength - 1)))

        Label1.Text = letter
        Label2.Text = CStr(number)