Try:
Dim strDate as string
strDate = "1020913"
then use DateSerial as follows
DateSerial(Mid(strDate, 2, 2), Mid(strDate, 4, 2), Mid(strDate, 6, 2))
e.g.
MsgBox "Date is " & DateSerial(Mid(strDate, 2, 2), Mid(strDate, 4, 2), Mid(strDate, 6, 2)) gives 13/09/2002
you could format this...