Imports System

Imports System.Globalization

Public Module Module1

    Public Sub Main()

        dim stringDate as string = "01.07.2021 11:00"

        dim cult as cultureInfo = New CultureInfo("de-DE")

        dim parsedDate as DateTime = DateTime.Parse(stringDate, cult)

        console.writeLine($" day {parsedDate.Day}")

    End Sub

End Module