Facilmente Conviertes el texto del Textbox a un Char Array y lo recorres con un For .
1) El textbox solo tendrá números de 2 dígitos? , si contiene mas de 2 dijitos entoces le metes un IF comprobando el ARRAY.COUNT.
te pongo un Ejemplo :
Bueno esto seria un solución rapida, como especificaste Te separa los dos números .
Ej : Con el numero 32 te deja ;
Recuerda que esto es en caso de que el numero sea solo de 2 dígitos, bueno aunque si modificas un toke lo ajustas a tus necesidades.
Mi Forma de Hacer Fácilmente lo que pides seria esta:
en este caso es casi lo mismo que te puso el Compañero @EdePC . la diferencia es que ahi el esta tomando el numero en modo de rango (yo lo usaria para una gran cantidad de digitos ) :
Para aplicarlo a tan solo 2 dígitos solo tomo el numero por posición como te mostré anteriormente.
1) El textbox solo tendrá números de 2 dígitos? , si contiene mas de 2 dijitos entoces le metes un IF comprobando el ARRAY.COUNT.
te pongo un Ejemplo :
Código (vbnet) [Seleccionar]
Dim NumerodeIzquierda As String = String.Empty
Dim NumerodeDerecha As String = String.Empty
'Obtenemos Texto
Dim Numeros As String = TextBox1.Text
'Convertimos en un Array
Dim TextArray() As Char = Numeros.ToArray
Dim Check As Integer = 0
' Recorremos.
For Each Numero As Char In TextArray
If TextArray.Count = 2 Then
If Check = 0 Then
NumerodeIzquierda = Numero.ToString
Check = 1
ElseIf Check = 1 Then
NumerodeDerecha = Numero.ToString
Check = 2
End If
End If
NextBueno esto seria un solución rapida, como especificaste Te separa los dos números .
Ej : Con el numero 32 te deja ;
Código [Seleccionar]
NumerodeIzquierda = 3
NumerodeDerecha = 2Recuerda que esto es en caso de que el numero sea solo de 2 dígitos, bueno aunque si modificas un toke lo ajustas a tus necesidades.
Mi Forma de Hacer Fácilmente lo que pides seria esta:
Código (vbnet) [Seleccionar]
Dim Numeros As String = TextBox1.Text ' Obtenemos Texto del textbox en este caso seria 32
msgbox(Numeros(0)) ' Asi obtienes el Primer numero, en este caso es el 3
msgbox(Numeros(1)) ' Asi obtienes el Segundo numero, en este caso es el 2
en este caso es casi lo mismo que te puso el Compañero @EdePC . la diferencia es que ahi el esta tomando el numero en modo de rango (yo lo usaria para una gran cantidad de digitos ) :
Código [Seleccionar]
txtDer.Text = txtNum.Text.Substring(1, 1)
txtIzq.Text = txtNum.Text.Substring(0, 1)Para aplicarlo a tan solo 2 dígitos solo tomo el numero por posición como te mostré anteriormente.
, Cristiano y pide tal astronómica cifra? , yo creo que solo quiere dinero. 
.
