Public Function Text2Date(strMMDDYY)
'************************************************************************
' Public Function Text2Date(strMMDDYY)
' Convert text in the format MMDDYY to a date type
'************************************************************************
Dim strDate As String, dtmDate As Date
strDate = Left([strMMDDYY], 2) + "/" + Mid([strMMDDYY], 3, 2) + _
 "/" + Right([strMMDDYY], 2)
dtmDate = CDate(strDate)
Text2Date = dtmDate
End Function

