Aide pour une erreur l'index se trouve en dhors des limites du t

Bonjour,
Svp si quelqu'un peut m'aider pour résoudre une erreur qui me bloque , qu on je lance mon programme il m’affiche cette erreur "l'index se trouve en dohors des limites du tableau"
voila mon script :
=================================================

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Tmax As Double
        Dim tmin As Double
        Dim t As Integer
        Dim ttmax As Double
        Dim ttmin As Double
        Dim arr_Wetterdaten(t, 3) As Double
        Tmax = Double.Parse(TextTmax.Text)
        tmin = Double.Parse(TextTmin.Text)
        '  t = Double.Parse(textTemps.Text)
        ttmax = Double.Parse(Textmax.Text)
        ttmin = Double.Parse(Textmin.Text)
        For t = 3 To 858 Step 2

            'arr_Wetterdaten(t, 4) = ((((Tmax - tmin) / 2) * Math.Sin((3.14 / 12) * (arr_Wetterdaten(t, 3) - (ttmax + ttmin) / 2)) + (Tmax + tmin) / 2))
            '    arr_Wetterdaten(1, 1) = ((((Tmax - tmin) / 2) * Math.Sin((3.14 / 12) * (7 - (ttmax + ttmin) / 2)) + (Tmax + tmin) / 2))
            arr_Wetterdaten(t + 1, 4) = ((((Tmax - tmin) / 2) * Math.Sin((3.14 / 12) * (arr_Wetterdaten(t + 1, 2) - (ttmax + ttmin) / 2)) + (Tmax + tmin) / 2))
        Next t
    End Sub

===================================================================================================
merci bcp