Private Sub save_standard()
        Dim StPlan As New stundenplan_class
        Dim St As New stundenplan_class.Stunde
        For i As Integer = 1 To 5
            For ii As Integer = 1 To 10
                If Not standard_stdplan(i, ii) = "" Then
                    St.Wochentag = 1
                    St.Fach = standard_stdplan(i, ii)
                End If
                StPlan.Stunden.Add(St)
            Next
        Next
        StPlan.SaveStundenplan("C:\test.txt")
    End Sub

Gehe immer vom Guten Willen Anderer aus!