Function MaDate(t As String) As Date
Dim a, s
a = Array("january", "february", "march", "april", "may", "june", _
"july", "august", "september", "october", "november", "december")
s = Split(t)
MaDate = s(1) & "/" & Application.Match(s(2), a, 0) & "/" & s(3)
End Function