Macro que muestre un msgbox si es mayor de edad o no

[meggido]

Estimados 

Estoy de a poco entrando en el fascinante mundo de programar en VB, pero me falta mucho por aprender. Por esta razon , necesito ayuda para crear la siguiente macro:

- Realizar una macro que permita ingresar la edad de una persona a través de un inputbox y Muestre un mensaje si es mayor de edad o no.

Tengo este codigo, pero algo le falta al parecer:

 

Public Sub prueba()

X = MsgBox("Desea Continuar", vbYesNo + vbQuestion, "Opción")

End Sub

 

Muchas gracias

saludos

meggido

[Antoni]

Prueba la macro:

Sub MayorDeEdad()
Dim Edad As String
'--
Edad = InputBox("Introduce la edad")
If IsNumeric(Edad) Then
   If CInt(Edad) > 17 Then MsgBox "Mayor de edad"
End If
End Sub