Public Function readSet()
 
setting = App.Path & "\ergebniss.txt"
'Settings.txt einlesen
Dim F As Integer
Dim Z0 As String
Dim Z1 As String
Dim Z2 As String
Dim Z3 As String
Dim Z4 As String
Dim Z5 As String
F = FreeFile
Open setting For Input As #F
Line Input #F, Z0
Line Input #F, Z1
Line Input #F, Z2
Line Input #F, Z3
Line Input #F, Z4
Line Input #F, Z5
 
'Settings aus Settings.txt zuordnen
Label1(0).Caption = Z0
Label1(1).Caption = Z1
Label1(2).Caption = Z2
Label1(3).Caption = Z3
Label1(4).Caption = Z4
Label1(5).Caption = Z5
Close F
End Function