Visual Basic.NET - AYUDA A SEPARAR LETRAS DE NUMEROS

dim nombre as string

dim nombre2 as string

for i as integer=0 to letras.lenth-1

if  if numeric(caracter) then

nombre +=caracter

else

nombre2 +=caracter

end if

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim letra, texto As String

        Dim numeros As String = ""

        Dim letras As String = ""

        texto = TextBox1.Text.ToUpper

        Dim x As Integer

        For x = 0 To texto.Length - 1

            letra = texto.Substring(x, 1)

            Select Case letra

                Case "A" To "Z"

                    letras = letras & letra

                Case "0" To "9"

                    numeros = numeros & letra

            End Select

        Next

        Label1.Text = numeros

        Label2.Text = letras

End Sub