'assumes "YourDate" is the date you want to convert
Dim strYear, strMonth, strDay, strNewDate
strYear = Year(YourDate)
If Month(YourDate) < 10 Then
strMonth = "0" & Month(YourDate)
Else
strMonth = Month(YourDate)
End If
If Day(YourDate) < 10 Then
strDay = "0" & Day(YourDate)
Else
strDay = Day(YourDate)
End If
strNewDate = strYear & "/" & strMonth & "/" & strDay