need simple thing quick please !!!

[arale]

i want the user to insert a date in a text box , amd i dont
want him to insert a number like - 1111111 and i dont want him to insert a string like - aaaaaaaaa so ,
i want him to insert a date of birth in the format of "dd/mm/yy" so i wrote :::

Private Sub txtdateofbirth_LostFocus()
Dim number As Long
Dim word As String

If txtdateofbirth.Text = number Then
MsgBox "àðà äëðñ úàøéê çå÷é", , "úàøéê ìà çå÷é"

ElseIf txtdateofbirth.Text = word Then
MsgBox "àðà äëðñ úàøéê çå÷é", , "úàøéê ìà çå÷é"

Else

If Format(txtdateofbirth, "dd/mm/yy") = txtdateofbirth.Text Then
Exit Sub
Else
MsgBox "àðà äëðñ úàøéê çå÷é", , "úàøéê ìà çå÷é"
txtdateofbirth.Text = ""
txtdateofbirth.SetFocus
Exit Sub
End If

End If
txtdateofbirth = Format(txtdateofbirth, "dd/mm/yy")
End Sub







whats wrong in it ?????????????????
please help and thank you in advance
amit

[Edited by arale on 06-26-2000 at 06:46 AM]

[MartinLiss]

Instead of using a TextBox, use a MaskedEdit control.

[arale]

i tried to use the mask edit box but the only prob is i cant lock it .

[MartinLiss]

Do this when you want to "lock" the MaskedEdit control.

Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)

    KeyAscii = 0
    
End Sub