For i = 0 To Table1.RowCount -1
strDate = Table1.Cell(strDateColumn, i)
If StrLength(strDate) > 0 Then
'this is a bit faster than DateParse
'-----------------------------------
' Table1.Cell(strNewColumn, i) = SubString(strDate, 6, 4) * 10000 + _
' SubString(strDate, 3, 2) * 100 + _
' SubString(strDate, 0, 2)
Table1.Cell(strNewColumn, i) = SubString(strDate, 6, 4) & _
SubString(strDate, 3, 2) & _
SubString(strDate, 0, 2)
'Table1.Cell(strNewColumn, i) = DateParse(strDate)
Else
Table1.Cell(strNewColumn, i) = 0
End If
Next i