Find The Closest Valid Date To One Given As An Invalid Date String?

So there's this accounting package at my client that spits out text-based reports with invalid dates, like February 31st or September 31st.The reports are formatted with spaces and mono-spaced fonts. The data that gets parsed out are fed into a more formal local SSRS report, and that's about all you need to know.

What I am interested in fixing is the situation where a date is invalid and can't be converted into a DateTime struct. The date format from the report is "MMM-dd-yy" (e.g. "Feb-30-10"). The date strings need to be fixed before being shown in the formal report. I've seen this done two ways in my time as a developer, and I want to come up with a cleverer way of doing it (if there isn't a built-in way I don't know about).The first bad method (I can't believe I'm even showing you!):

Dim month As Integer = <Parse out the month from the bad date string>
Dim day As Integer = <Parse out the day from the bad date string>
Dim year As Integer = <Parse out the year from the bad date string>
Dim validDate As DateTime

[code]....