Saludos,

- Jeje acabo de descargarme el Visual Basic Express 2005 para hacer la prueba XD: http://go.microsoft.com/fwlink/?linkid=57033

- Lo cierto es que lo más habitual es ver que usan aritmética sencilla para obtener rangos numéricos si se están trabajando números, por ejemplo si tengo el número 32 y quiero el 2, pues le saco el módulo (resto) de 10:

2 = 32 % 10

- Si quiero el 3, divido el 32 entre 10 y le substraigo el módulo

3 = 32 / 10 - ( ( 32 % 10 ) / 10 )

-- Puedes ahorrarte la resta y simplemente dividir si conviertes el resultado a Entero

Public Class Form1
    Private Sub btnCalc_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCalc.Click
        Dim num As Integer = txtNum.Text
        txtDer.Text = num Mod 10
        txtIzq.Text = num / 10 - ((num Mod 10) / 10)
    End Sub
End Class

- Otra opción es usar las funciones predefinidas para tratar texto, en este caso Substring:

Public Class Form1
    Private Sub btnCalc_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCalc.Click
        txtDer.Text = txtNum.Text.Substring(1, 1)
        txtIzq.Text = txtNum.Text.Substring(0, 1)
    End Sub
End Class

Gracias a los dos por sus aporte ,probare los metodos,pero claro programo por ahora lo fines de semana,ya que trabajo fuera de casa toda la semana y este portatil no tira bien jeje y para programar no vale

Ya os contare como fue cuando llegue a casa

Saludos
Luis

Veamos de entrada si tienes una cifra de 0 a 99, es decir de dos cifras, basta con usar un tipo de datos byte.

Segundo, obtener cualquier dígito de un número es algo trivial, ya son matemáticas de niños de 10 años.

La función módulo (resto de una división) en un valor decimal pué sse queda con la última cifra dle valor:
123 modulo 10 = 3
para quedarse con la cifra del medio. Primero hay que saber si queremos acceder a ella solo tras haber tomado el las unidades o directamente.
- Si ya hemos tomado las unidades, para tomar las decenas, recurridmoa las matemáticas, haciendo una división que se quede solo con la parte entera:
123 / 10 = 12'3
la parte entera en 12, que en programación (VB) puede hacerse con 123 \ 10 = 12
ahora como el 2 son las unidades, procedes igual que antes...

etc, etc... sea cual sea el número.
Las divisiones y módulos son operaciones muy rápidas, así que no convierta a string un número salvo que luego tengas hacer otras cosas de tipo string con ello...
Si directamente el dato es un string (caso del vaslor procedente de un control de texto, por ejemplo), puedes acceder direcamente al carácter en una posición dada, mediante alguno de los métodos que provee la clase string, o los métodos heredados  de antiguas versiones de Basic, como son Left, Mid y Right, que admeás te permiten tomar más de un carácter a la vez.

Sé eficiente, pensando en si toda la operación es de cadenas o de números. No alternes alegremente entre uno y otro caso contínuamente a la hora de resolver problemas, acaba en ineficiencia...

Bueno chicos he resuelto mi problema de la forma mas fácil :

 ReadOnly Property Num6 As Int32
    ' Get
    ' Return CInt(TextBox6.Text)
    ' End Get
    ' End Property
 
    ReadOnly Property Num6 As Int32
        Get
            Return CInt(TextBox6.Text.Substring(0, 1))
            'TextBox6.Text.Substring(1, 1)
        End Get
    End Property

Gracias a todos por vuestro aporte
hasta la siguiente ves

Luis