Sub Main()
Dim strDate As String
strDate = "2013-06-11"
Debug.Print "Original Date: ", strDate
Debug.Print "CDate() Conversion: ", CDate(strDate)
Debug.Print "Format() as String: ", Format(strDate, "DD.MM.YYYY")
End Sub
and the Immediate Window shows