find fredage i hele 2005

Hej E.

Jeg oprettede nedenstående spørgsmål i vb kategorien, men det skulle havde været i vb.net.
http://www.eksperten.dk/spm/488695

Er her en som kan løse den i vb.net :-)

vb koden er her:
Sub FindFriday()
Dim Date1 As Date, Date2 As Date, i As Integer, j As Integer
Dim StartYear As Integer
StartYear = 2005
For i = 1 To 12
  Date1 = DateSerial(StartYear, i, 1)
  For j = 0 To 6
    Date2 = Date1 + j
    If WeekDay(Date2) = 5 Then
      Debug.Print Date2
      Exit For
    End If
  Next j
Next i

End Sub