Programación VB: ingrese un número entero y determine si el número es un número negativo, un número de un dígito, un número de dos dígitos o un número de tres dígitos o más.

Subcomando privado1_Click()

Dim x

x = Val(InputBox("Ingrese un número", , -500))

Si x > 0 Entonces

MsgBox x & "Sí" & Len(CStr(x)) & "Número positivo"

ElseIf x < 0 Entonces

MsgBox x & "es" & Len(CStr(Abs(x))) & "número negativo"

Else

MsgBox x & "es 0"

Finalizar si

Finalizar sub