Option Explicit
Dim Ordnername As String
Dim Ordnerpfad As String
 
 
 
Private Sub Command1_Click()
Ordnername = Text1.Text
Ordnerpfad = Text2.Text
 
  WritePrivateProfileString "Einstellungen", Ordnername, Ordnerpfad, App.Path & _
    "\Datei.ini"
 
End Sub
 
Private Sub Command2_Click()
Ordnername = GetIniString("Einstellungen", Ordnername, Ordnerpfad, App.Path & _
  "\Datei.ini")
    Ordnerpfad = GetIniString("Einstellungen", Ordnername, Ordnerpfad, App.Path _
    & "\Datei.ini")
 Text1.Text = Ordnername
    Text2.Text = Ordnerpfad
End Sub
 
Private Sub Form_Load()
 
 
End Sub

Option Explicit
 
Public 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
 
' Eintrag aus INI-Datei lesen
Public Function GetIniString(ByVal Ordner As String, _
  ByVal Ordnername As String, ByVal Ordnerpfad As String, _
  ByVal INIFile As String, _
  Optional ByVal nSize As Integer = 256) As String
 
  Dim lResult As Long
  Dim sValue As String
 
  sValue = Space$(nSize)
  lResult = GetPrivateProfileString(Ordner, Ordnername, _
    Ordnerpfad, sValue, nSize, INIFile)
  GetIniString = Left$(sValue, lResult)
End Function