Dim DataDate As Date = TextBox.Text

        Label2.Text = DataDate.DayOfWeek

        Dim DayNow As String

        Dim DagNr As Integer = DataDate.DayOfWeek

        Select Case DagNr
            Case 1 : DayNow = "Søndag"
            Case 2 : DayNow = "Mandag"
            Case 3 : DayNow = "Tirsdag"
            Case 4 : DayNow = "Onsdag"
            Case 5 : DayNow = "Torsdag"
            Case 6 : DayNow = "Fredag"
            Case 7 : DayNow = "Lørdag"
            Case Else : DayNow = "Pas, ved det ikke"
        End Select

        Label3.Text = DayNow