Hola Insomnia gracias por la sugerencia pero una mala, tampoco se puede, tengo el siguiente codigo:
Private Sub Command1_Click()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer
a = Val(Text1.Text)
b = a
c = 0
g = 0
l = 0
Do While a <> 0
a = a \ 10
c = c + 1
Loop
If c Mod 2 = 0 Then
Text2.Text = "par"
d = c
c = c / 2
For f = 1 To c
e = b Mod 10
g = g * 10 + e
b = b \ 10
Next f
Text3.Text = b & g//esta parte esta bien
Else
Text2.Text = "impar"
d = b Mod 10
b = b \ 10
Do
b = b \ 10
Loop While c < 1
e = b Mod 10
d = d * 10 + e
Text3.Text = Str(d)
End If
A partir de Else es donde no me sale nada del numero, la condicion Do es la que me falla, hice con Do While, con While Went y por ultimo con Do loop while, cuando la condicion cambio de "1< c" se bloquea mi maquina
y no se donde esta el error...ayuda porfavor.