Imports System
Imports System.Globalization
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim dateString As String = "24082023"
Dim dt As DateTime = DateTime.ParseExact(dateString, "ddMMyyyy", CultureInfo.InvariantCulture)
Console.WriteLine(dt)
End Sub
End Class
' run
'
' 8/24/2023 12:00:00 AM
'