¡Dios viene a salvar la programación informática!

Coloque un cuadro de entrada de texto y un botón de comando en la ventana y escriba el siguiente programa:

Private Sub Command1_Click()

x = Trim(Val(Text1))

Si Len(x) = 3 Entonces

X2 = x \ 100

X1 = (x - X2 * 100) \ 10

X0 = x Mod 10

Imprimir x

Imprimir "dígito" X0

Imprimir "decenas"

Imprimir "centenares"; X2

Else

Imprimir "Los datos de entrada no cumplen con los requisitos"

Finalizar si

End Sub