Merkwürdiger Fehler..?

[Rene42]

Hi

Ich hab hier ein Skript bei dem ich bald verrückt werde da ich den Fehler nicht finden kann.

Private Sub Speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Speichern.Click
        ZwBrNr = BN.Text 'Fragt die Brettnummer als string ab
        BrNr = Val(ZwBrNr) 'Wandelt die BRettnummer in eine Zahl
        Do 'Speichert die sieben Basisinformationen des Brettes in einem Array
            Info = Info + 1
            Wert = ob(Info).text
            Brett(Info) = Wert
            sav = "" & sav & "" & Wert & ","
        Loop Until Info = 7
        Check_directory("C:\Mannschaftsberichte")
        DName = "C:\Mannschaftsberichte\" & Brett(BrNr)(1) & "-" & Brett(BrNr)(2) & ""
        Check_directory("" & DName & "")
        FName = "Brett" & BrNr & ""
        My.Computer.FileSystem.WriteAllText("" & DName & "\" & FName & "", "" & sav & "", False)
    End Sub

Immer wenn ich den Code starte bekomm ich bei ersten Schleifendurchlauf den Fehler

NullReferenceExperience nicht behandelt.

Im CodeAbschnitt Brett(Info) = Wert

Dabei sagt auch das Debuggen das Info=1 ist und Wert = "1.Mannschaft"

Hoffentlich hat jemand eine Idee...!