Dim iDate As String = "05/05/2005" Dim oDate As DateTime = Convert.ToDateTime(iDate) MsgBox(oDate.Day & " " & oDate.Month & " " & oDate.Year)