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