Public Sub inilesen()
Dim inipfad As String
 
inipfad = ("C:\berater.ini")
For pos = 1 To 3
    Dim zeilenwert1 As String
    Dim zeilenwert2 As String
    Dim zeilenwert3 As String
    Dim zeilenwert4 As String
    Dim wert1 As String
    Dim wert2 As String
    Dim wert3 As String
    Dim wert4 As String
    Dim laengex As Long
    'Variable initialisieren
    zeilenwert1 = Space$(30)
    zeilenwert2 = Space$(30)
    zeilenwert3 = Space$(30)
    zeilenwert4 = Space$(30)
    'lesen
        laengex = GetPrivateProfileString("Ber" & pos, "Name", "Unbekannt", _
          zeilenwert1, 30, inipfad)
        wert1 = Left$(zeilenwert1, laengex)
        laengex = GetPrivateProfileString("Ber" & pos, "Adr", "Irgendwo", _
          zeilenwert2, 30, inipfad)
        wert2 = Left$(zeilenwert2, laengex)
        laengex = GetPrivateProfileString("Ber" & pos, "Tel", "012345/6789", _
          zeilenwert3, 30, inipfad)
        wert3 = Left$(zeilenwert3, laengex)
        laengex = GetPrivateProfileString("Ber" & pos, "Fax", "012345/6789", _
          zeilenwert4, 30, inipfad)
        wert4 = Left$(zeilenwert4, laengex)
 
 
'hier WÄRE jetzt angesagt:
     Form1.optbtn(pos).Caption = wert1

 
    'ohne index keine chance
    Next pos
' Alle Werte im Form gefüllt, Tooltip und tag vergenußwurzelt
 
 
 
End Sub