Public Class Tester Public Shared Sub Main Dim testDate As String Dim results As New System.Text.StringBuilder ' ----- Test an invalid date. testDate = "Febtember 43, 2007" If (IsDate(testDate) = True) Then _ results.AppendLine(Date.Parse(testDate).ToString) Console.WriteLine(results.ToString()) End Sub End Class