Imports System
Public Class Program
Public Shared Function IsDateTime(ByVal dt As String) As Boolean
Dim tmpDate As DateTime
Return DateTime.TryParse(dt, tmpDate)
End Function
Public Shared Sub Main()
Console.WriteLine(IsDateTime(DateTime.Now.ToString()))
Console.WriteLine(IsDateTime(New DateTime(2023, 08, 02).ToString()))
Console.WriteLine(IsDateTime("24082023"))
Console.WriteLine(IsDateTime("9/4/2023 8:30:53 AM"))
End Sub
End Class
' run:
'
' True
' True
' False
' True
'