Parsing different DateTime formats

gistfile1.vb

'Make sure this import is at the top of the file:

Imports System.Globalization

'And the actual code:

Public Function ParseDateTime(ByVal dateTimeString As String) As DateTime?
	Dim dt As DateTime
	'Try to parse the date time...
	If DateTime.TryParseExact(dateTimeString, New String() {"yyyyMMdd", "yyyy-MM-dd"}, CultureInfo.CurrentCulture, DateTimeStyles.None, dt) Then
		'Parse succeeded!
		Return dt
	Else
		'Parse didn't succeed. Return Nothing...
		Return Nothing
	End If
End Function