Option Explicit
 
Public Declare Function GetPrivateProfileString Lib "kernel32.dll" 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 Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias _
  "WritePrivateProfileStringA" ( _
      ByVal lpApplicationName As String, _
      ByVal lpKeyName As Any, _
      ByVal lpString As Any, _
      ByVal lpFileName As String) As Long
 
Public Declare Function GetPrivateProfileSection Lib "kernel32.dll" Alias _
  "GetPrivateProfileSectionA" ( _
     ByVal lpAppName As String, _
     ByVal lpReturnedString As String, _
     ByVal nSize As Long, _
     ByVal lpFileName As String) As Long
 
 
Public Sub Speichern()
Dim i As Variant, n As Integer
n = 0
For i = 0 To frmHaupt.txtUrl.ListCount - 1
     n = n + 1
     WritePrivateProfileString "Test", "" & n, _
     frmHaupt.txtUrl.List(i), App.Path & "\Verlauf.ini"
Next
End Sub
 
Public Sub Laden()
Dim i As Variant, n As Integer, Liste As String
Dim Def As String, SValue As String
SValue = Space(256)
n = GetSectionCount("Test", App.Path & "\Verlauf.ini")
For i = 0 To n
Liste = GetPrivateProfileString("Test", n, vbNullString, SValue, _
     Len(SValue), App.Path & "\Verlauf.ini")
txtUrl.AddItem Liste
Next
End Sub
 
Public Function GetSectionCount(ByVal sSectionName As String, _
                                ByVal sIniFile As String) As Long
   Dim sBuffer As String
 
   sBuffer = Space(65536)
 
   GetPrivateProfileSection sSectionName, sBuffer, Len(sBuffer), sIniFile
 
   If Len(sBuffer) > 0 Then
      GetSectionCount = UBound(Split(sBuffer, Chr(0))) - 1
   End If
End Function