Public Function changeToDate(strDate As String) As Date
[COLOR=Green]'Considering that the Date String you obtain is of this format 1212 (dd.mm.yyyy)[/COLOR]
changeToDate = DateSerial(Mid(strDate, 7, 4), Mid(strDate, 3, 2), Mid(strDate, 1, 2))
End Function