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