If Dir("D:\Temp\", FileAttribute.Directory) = "" Then
            System.IO.Directory.CreateDirectory("D:\Temp\")
        ElseIf Not Dir("D:\Temp\Teilnehmerdaten.ini") = "" Then
            i = INIBefehle.Daten_lesen("Allgemein", "TeilnehmerAnzahl", "0", _
              "D:\Temp\Teilnehmerdaten.ini")
        End If

Module INIBefehle
    Public Declare Function WritePrivateProfileString Lib "kernel32" Alias _
      "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
      lpKeyName As String, ByVal lpString As String, ByVal lpFileName As _
      String) As Long
    Public Declare Function GetPrivateProfileString Lib "kernel32" Alias _
    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
    lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As _
    String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function Daten_lesen(ByVal Abschnitt As String, ByVal Schlüssel As _
String, ByVal LeerFall As String, ByVal Pfad As String) As String
        Dim myIniFile As String
        Dim sValue As String
        Dim lResult As Long
 
        myIniFile = Pfad
        sValue = Space$(255)
        lResult = GetPrivateProfileString(Abschnitt, Schlüssel, LeerFall, _
          sValue, Len(sValue), myIniFile)
        Daten_lesen = RTrim(sValue)
    End Function