Private Declare Function WritePrivateProfileString Lib _
  "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String) As Long
 
Private Declare Function GetPrivateProfileString Lib _
  "kernel32" Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpDefault As String, _
  ByVal lpReturnedString As String, ByVal nSize As Long, _
  ByVal lpFileName As String) As Long

dim a (0 to 30)
dim b
 
a(0) = "Phy"
a(1) = "Pol"
a(3) = "Deu"
a(4) = "Tech"
a(5) = "Mat"
a(6) = "Reli"
a(7) = "Musik"
a(8) = "Tech"
a(9) = "Eng"
a(10) = "Eng2"
a(11) = "Gesch"
a(12) = "Reli"
a(13) = "Chemie"
a(14) = "Chemie"
a(15) = "Tex"
a(16) = "Tex2"
a(17) = "Musik"
a(18) = "Gesch"
a(19) = "Mat"
a(20) = "Mat2"
a(21) = "Eng"
a(22) = "Deu"
a(23) = "Sport"
a(24) = "Sport2"
a(25) = "Deu"
a(26) = "Deu2"
a(27) = "Tech"
a(28) = "Musik"
a(29) = "Mat"
a(30) = "Pol"
 
 
  Dim myIniFile As String
    Dim sValue As Integer
    Dim lResult As Long
  Dim i
 
    myIniFile = App.Path & "\" & "Check.ini"
    b = "Montag"
  For i = 0 To 30
 
 
 
     If i > 6 Then
     b = "Dienstag"
     If i > 12 Then
      b = "Mittwoch"
       If i > 18 Then
        b = "Donnerstag"
         If i > 24 Then
          b = "Freitag"
         End If
       End If
     End If
    End If
 
     myIniFile = ""
     sValue = ""
     lResult = 0
 
    myIniFile = App.Path & "\" & "check.ini"
 
    ' Rückgabewert mit ausreichend Leerzeichen füllen
     sValue = Space$(255)
     lResult = GetPrivateProfileString(b, a(i), _
       vbNullString, sValue, Len(sValue), myIniFile)
 
    ' tatsächliche Länge des Rückgabewertes
     sValue = Left$(sValue, lResult)
 
    check(i).Value = sValue
 
 
 
  Next i