Sub Tarihmi(kontrol As TextBox) With kontrol If Not IsDate(.Text) And .Text <> "" Then MsgBox "Hatalı tarih değeri girildi", 48, "Hata" .Text = Date .SetFocus End If End With End Sub Private Sub Text1_LostFocus() Tarihmi Text1 End Sub