Dim MyDate, strDate As String
strDate= "20120922"
MyDate=strDate.SubString2(4,6) &"/" & strDate.SubString(6) &"/" & strDate.SubString2(0,4)
Msgbox(MyDate,"") 'returns 09/22/2012
MyDate=strDate.SubString(6) &"/" & strDate.SubString2(4,6) &"/" & strDate.SubString2(0,4)
Msgbox(MyDate,"") 'returns 22/09/2012