Private Sub Form_Load()
If IsDate("05/12/1961") Then
    MsgBox "Tienes: " _
         & Int(DateDiff("d", "05/12/1961", Date) / 365.25) _
         & " años!"
Else
    MsgBox "Formato correcto es: mm/dd/yyyy"
End If
End Sub