Visual Basic - visual basic 6.0

programa que permita calcular la edad de una persona ingresando fecha de nacimiento dada la edad un mensaje si es mayor de edad o menor de edad.
Ya lo tengo asi, lo unico que no puedo poner edad mayor o edad menor en un mensaje.
Private Sub Command1_Click()

Text2.Text = DateDiff("yyyy", Text1.Text, Format(Date, "dd/mm/yyyy"))
If (Edad) < 18 Then
MsgBox "Es menor de edad"
Else
MsgBox "Es mayor de edad"

End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus


End Sub

Private Sub Command3_Click()
Form1.Hide
Form2.Show
End Sub

Salu2 y felices líneas de programac10n.