Skip to main content
Dim numero As stringString
numero = InputBox ("Ingrese un número")
If lenLen(numero) andAnd isnumericIsNumeric(numero) Then
     MsgBox"Ha presionado Aceptar y el número ingresado fue " & numero 
Else
     MsgBox "Ha presionado Cancelar"
End If
Dim numero As string
numero = InputBox "Ingrese un número"
If len(numero) and isnumeric(numero) Then
     MsgBox"Ha presionado Aceptar y el número ingresado fue " & numero 
Else
     MsgBox "Ha presionado Cancelar"
End If
Dim numero As String
numero = InputBox("Ingrese un número")
If Len(numero) And IsNumeric(numero) Then
     MsgBox"Ha presionado Aceptar y el número ingresado fue " & numero 
Else
     MsgBox "Ha presionado Cancelar"
End If

Dim numero As string numero = InputBox "Ingrese un número" If len(numero) and isnumeric(numero) Then MsgBox"Ha presionado Aceptar y el número ingresado fue " & numero Else MsgBox "Ha presionado Cancelar" End If

Dim numero As string
numero = InputBox "Ingrese un número"
If len(numero) and isnumeric(numero) Then
     MsgBox"Ha presionado Aceptar y el número ingresado fue " & numero 
Else
     MsgBox "Ha presionado Cancelar"
End If

Dim numero As string numero = InputBox "Ingrese un número" If len(numero) and isnumeric(numero) Then MsgBox"Ha presionado Aceptar y el número ingresado fue " & numero Else MsgBox "Ha presionado Cancelar" End If

Dim numero As string
numero = InputBox "Ingrese un número"
If len(numero) and isnumeric(numero) Then
     MsgBox"Ha presionado Aceptar y el número ingresado fue " & numero 
Else
     MsgBox "Ha presionado Cancelar"
End If
Origen Enlace

Dim numero As string numero = InputBox "Ingrese un número" If len(numero) and isnumeric(numero) Then MsgBox"Ha presionado Aceptar y el número ingresado fue " & numero Else MsgBox "Ha presionado Cancelar" End If