Is this a good way to check and fix a user-entered date?

[Glory]

eg So that if the date is entered as "4-3", the date becomes "04/03/2011"

On Error GoTo YearAdder
DateTxt1 = Replace(DateTxt1, "-", "/")
fourtharray = Split(DateTxt1, "/")
If fourtharray(0) < 10 And _
    Len(fourtharray(0)) < 2 Then: fourtharray(0) = "0" & fourtharray(0)
If fourtharray(1) < 10 And _
    Len(fourtharray(1)) < 2 Then: fourtharray(1) = "0" & fourtharray(1)
On Err.Number = 9 GoTo YearAdder
If Len(fourtharray(2)) = 2 Then: fourtharray(2) = "20" & fourtharray(2)
If IsEmpty(newdate) Then: newdate = Join(fourtharray, "/")
DateTxt1 = newdate
 
YearAdder:
If Err.Number = 9 Then: newdate = Join(fourtharray, "/") & "/" & Year(Date)
Resume Next

 

[jim may]

xx/xx -- Assumes Current Year

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
temp = Replace(Target, "-", "/")
Target.Value = temp
Application.EnableEvents = True
End Sub