Dim Result&, Buffer$
    i = 1
    Do
    'Wert lesen
    Buffer = Space$(25)
    Result = GetPrivateProfileString("Ip-Adressen", "ip" & i, "", Buffer, 24, _
      dateiname)
    ip = Left$(Buffer, Result)
    If ip = deineGesuchteAdresse Then
        MsgBox "Juchhuuu"
        Exit Do
    end if 
    While ip <> ""