vb 2005 Wochentag in label anzeigen

Hallo alle zusammen,
ich bin schon am verzweifeln.
Ich hab schon überal gesucht. in goggle, Vb-Paradise.
Und zwar will ich den Wochentag in Buchstaben in einem label anzeigen. Doch bei alle Codes die ich gefungen habe, funktiniert es nicht.

Jetzt hab ich mal ein bischen selbst rumexperimentiert, und habe folgendes gemacht:

Code
Label4.Text = Now.DayOfWeek
        If Label4.Text = "1" Then
            Label4.Text = "Montag"
        End If
        If Label4.Text = "2" Then
            Label4.Text = "Dienstag"
        End If

        If Label4.Text = "3" Then
            Label4.Text = "Mitwoch"
        End If

        If Label4.Text = "4" Then
            Label4.Text = "Donnerstag"
        End If

        If Label4.Text = "5" Then
            Label4.Text = "Freitag"
        End If

        If Label4.Text = "16" Then
            Label4.Text = "Samstag"
        End If

        If Label4.Text = "7" Then
            Label4.Text = "Sonntag"
        End If



Nun ist es so das mir der code ein bisschen zu lang und zu kompliziert ist.

Da muss es doch ein code geben der viel einfacher ist, oder?
Weiß vieleicht jemand so einen?