Dim numero As stringString
numero = InputBox("Ingrese un número")
If lenLen(numero) andAndisnumericIsNumeric(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) andisnumeric(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) AndIsNumeric(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