Imports System

Public Module Module1

    Public Sub Main()

        Dim usDateString = "2/7/2022 02:21:13 PM"

        Dim deDateString = "7.2.2022 14:21:13"

        Dim usDate as Date = Date.Parse(usDateString)

        Dim deDate as Date = Date.Parse(deDateString)

        Console.WriteLine(usDate.ToLongDateString())

        Console.WriteLine(deDate.ToLongDateString())

        Console.WriteLine(usDate = deDate)

    End Sub

End Module