Editing a string into 2 strings

[dday9]

For Shaggy :]

Dim letter As String
        Dim number As Integer
        letter = TextBox1.Text.Substring(0, 1)
        If Integer.TryParse(TextBox1.Text.Substring(1, TextBox1.TextLength - 1), number) = True Then
            Label1.Text = letter
            Label2.Text = number.ToString
        Else
            MessageBox.Show("Please enter the correct format.", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If

Edit - And for JuggaloBrotha as well, woot woot!

Edit #2 -

When sending the SubString to the Integer.Parse(), you don't have to specify the length of the string to parse,

I never knew that, I allways typed out the exact length. That would've saved me some trouble a while back :P