Вы можете использовать функцию TryParseExact :
Dim DateStr = "30.10.2009"
Dim Dt As DateTime
If DateTime.TryParseExact(DateStr, "dd.MM.yyyy", CultureInfo.InvariantCulture, DateTimeStyles.None, Dt) Then
' The date was successfully parsed => use the Dt variable
End If