Mostrar Mensajes
Código:
Option Explicit
Private Sub Form_Load()
Dim lVal As Long
Dim i As Long
lVal = 10
For i = Len(CStr(lVal)) - 1 To 0 Step -1
Debug.Print Mid$(CStr(lVal), Len(CStr(lVal)) - i, 1)
Next
End Sub
|
 |
Bienvenido(a), Visitante. Por favor Ingresar o Registrarse ¿Perdiste tu email de activación?. |