try the following code and reply
Private Sub txtDate_LostFocus()
Dim DayOnly As String
If txtDate = Format(txtDate, "dd/mm/yyyy") Or txtDate = Format(txtDate, "dd/mm/yy") _
Or txtDate = Format(txtDate, "d/mm/yyyy") Or txtDate = Format(txtDate, "d/mm/yy") _
Or txtDate = Format(txtDate, "dd/m/yyyy") Or txtDate = Format(txtDate, "dd/m/yy") _
Or txtDate = Format(txtDate, "d/m/yyyy") Or txtDate = Format(txtDate, "d/m/yy") Then
txtDate = Format(txtDate, "d/mm/yyyy")
'ElseIf txtDate = Format(txtDate, "dd") Or txtDate = Format(txtDate, "d") Then
'DayOnly = txtDate
'txtDate = DayOnly & "/" & Month(Now) & "/" & Year(Now)
'txtDate = Format(txtDate, "d/mm/yyyy")
ElseIf txtDate = Format(txtDate, "d/m") Or txtDate = Format(txtDate, "dd/m") _
Or txtDate = Format(txtDate, "d/mm") Or txtDate = Format(txtDate, "dd/mm") Then
DayOnly = txtDate
txtDate = DayOnly & "/" & Year(Now)
txtDate = Format(txtDate, "d/mm/yyyy")
ElseIf Len(txtDate) <= 2 Then
DayOnly = txtDate
txtDate = DayOnly & "/" & Month(Now) & "/" & Year(Now)
'txtDate = Format(txtDate, "d/mm/yyyy")
End If
End Sub