• I saw that too.

    If Len(strDay) = 1 Then

    strMonth = "0" + strDay

    End If

    probably should be

    If Len(strDay) = 1 Then

    strDay = "0" + strDay

    End If