Определение дня недели числа - VB

Private Sub Command1_Click()
Dim den()
den = Array("понедельник", "вторник", "среда", "четверг", "пятница", "суббота", "воскресенье")
Dim i As Integer, d As Integer, m As Integer, g As Integer, kol As Integer
Dim dt As Date
dt = CDate(Text1)
d = Day(dt): m = Month(dt): g = Year(dt)
kol = (g - 1) Mod 7 + ((g - 1) \ 4) Mod 7
If m > 1 Then
    For i = 1 To m - 1
        If i = 4 Or i = 6 Or i = 9 Or i = 11 Then
            kol = kol + 2
            Else
            If i = 2 Then
                If (g Mod 4) = 0 Then kol = kol + 1
                Else
                kol = kol + 3
            End If
        End If
    Next i
End If
kol = kol + d - 1
Text2 = den((kol - 1) Mod 7)
End Sub