Private Sub stundenplan_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        ' Existenz einer Datei prüfen
        Dim bFileExists As Boolean
        bFileExists = File.Exists(Application.StartupPath & "\stundenplan.dat")
        If bFileExists = True Then
            c.LoadFile()
            For i As Integer = 1 To 5
                For ii As Integer = 1 To 10
                    user_stdplan(i, ii) = c.Stundenplan(i, ii).Fach
                Next
            Next
            'MsgBox("c.Stundenplan: " & c.Stundenplan(1, 3).Fach.ToString)
            fill_stundenplan(user_stdplan)
            Information.Text = "User-Stundenplan gefunden. Wird verwendet."
        Else
            fill_standard()
            Information.Text = "kein User-Stundenplan gefunden. Verwende" & _
              "Standard."
            Timer1.Enabled = True
        End If
    End Sub

For i As Integer = 1 To 5
            For ii As Integer = 1 To 10
                Dim std As New Class1.stdplan
                std.Fach = user_stdplan(i, ii)
                c.Stundenplan(i, ii) = std
                std = Nothing
            Next
        Next
        c.SaveFile()

Gehe immer vom Guten Willen Anderer aus!