Dim semanagps As Integer
            Dim i As Integer = textbox1.text
            Dim numdia(i) As Integer
 
            numdia(0) = Nothing   
            numdia(1) = 1773          'si nos fijamos en el calendario la semana 1773 
            numdia(2) = 1773          'tiene del día 1 al 4 y las demás semanas tendrán
            numdia(3) = 1773          'los siete días que comprende la semana, es por 
            numdia(4) = 1773          'ello que genero el for.
            For i = 5 To 365 Step 1
                For k = 1773 To 1825 Step 1
                   For j = 1 To 7 Step 1
                       numdia(i) = k + 1
                    Next
                Next
            Next
 
            semanagps = numdia(i)

    ' Creo un Array para almacenar como referencia el rango de semanas GPS.
    ' Al valor inicial hay que descontarle un '1' (1772) porque el índice de un array empieza por '0'.
    Private ReadOnly GPSWeeks As Integer() =
        Enumerable.Range(1773 - 1, 1825).ToArray
 
    ' Obtengo la cantidad de dias del año actual.
    ' Esto lo hago por los años bisiestos, que tienen '1' día más (366).
    Private ReadOnly TotalDaysInYear As Integer =
        (From month As Integer In Enumerable.Range(1, 12)
        Select DateTime.DaysInMonth(Now.Year, month)).Sum
 
    ' Ya estamos listos para iterar los elementos ...del modo que uno prefiera :), esto solo es un ejemplo:
    Private Sub Test() Handles MyBase.Shown
 
        Dim sb As New System.Text.StringBuilder
 
        For DayOfYear As Integer = 1 To TotalDaysInYear ' (365 or 366)
 
            ' Obtengo la fecha exacta dado el número del día del año actual.
            Dim DateOfYear As DateTime = New DateTime(Now.Year, 1, 1).AddDays(DayOfYear - 1)
 
            sb.AppendLine(String.Format("Day Of Year: {0}", CStr(DayOfYear)))
            sb.AppendLine(String.Format("Date: {0}", CStr(DateOfYear)))
            sb.AppendLine(String.Format("GPS Week: {0}", CStr(Me.GPSWeeks(DatePart(DateInterval.WeekOfYear, DateOfYear)))))
 
            MessageBox.Show(sb.ToString, "GPS Calendar Info - By Elektro",
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
 
            sb.Clear()
 
        Next DayOfYear
 
    End Sub

Porfavor, ya que tienes el detalle de llevar las normas del foro en tu firma, la próxima vez podrías intentar respetar la utilización de las etiquetas GeShi, no es un muy buen ejemplo ...

Public Class GPSTest : Inherits Form
 
    ' TKey   = Day of year
    ' TValue = GPS Week
    Friend ReadOnly GPSDictionary As Dictionary(Of Integer, Integer) = Me.GetGPSDictionary
 
    Private Function GetGPSDictionary() As Dictionary(Of Integer, Integer)
 
        Dim ThisYear As Integer = Now.Year
 
        Dim DaysInThisYear As Integer = (From month As Integer In Enumerable.Range(1, 12)
                                         Select DateTime.DaysInMonth(ThisYear, month)).Sum
 
        Dim GPSWeeks As IEnumerable(Of Integer) = Enumerable.Range(1773 - 1, 1825)
 
        Dim Result As New Dictionary(Of Integer, Integer)
 
        For Day As Integer = 1 To DaysInThisYear
 
            Result.Add(Day, GPSWeeks(DatePart(DateInterval.WeekOfYear,
                                              New DateTime(ThisYear, 1, 1).AddDays(Day - 1))))
 
        Next Day
 
        Return Result
 
    End Function
 
    Private Sub Test() Handles MyBase.Load
 
        MessageBox.Show(Me.GPSDictionary(CInt(InputBox("Intoduce un dia del año", "Dia del año", 1))), "Semana GPS:",
                        MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        Application.Exit()
 
    End Sub
 
End Class