Validar fecha

Respuesta de
a
Usuario
Cordial Saludo

Quisiera preguntarle si este el código para validar que sea texto y no numérico COMO HAGO PARA VALIDAR FECHAS.

Gracias por su amable respuesta y colaboración.



Private Sub TextBox2_Change()
'no numérico
If IsNumeric(TextBox2.Text) And _
TextBox2.Text <> "" Then
MsgBox "Este Campo es solo texto"
TextBox2.Text = ""
TextBox2.SetFocus
End If
End Sub
Avatar
Experto
Hola:
Introducí estos ajustes:

Private Sub TextBox2_AfterUpdate()
If Not IsDate(TextBox2.Text) Then
MsgBox "Este Campo debe ser fecha"

TextBox2.Text = ""
TextBox2.SetFocus
End If
End Sub

Saludos
Elsa

http://es.geocities.com/lacibelesdepunilla/macros