Sub Save()
Dim myIniFile  AS String
 
    myIniFile = App.Path & "\setting\config" & ".ini"
 
     SaveSetting "MeinProgramm", "Media Manager", "Config-Path", myIniFile 
'Hier wird also der Path abgespeichert.
End Sub

Sub Read () 'Mit einem Command1_Click-Ereignis wird dies hier aufgerufen (Call). 
Dim MyDir AS String
    MyDir = GetSetting("MeinProgramm", "Media Manager", "Config-Path", _
      Text10.Text)'Der Wert soll in der Textbox Text10.Text ausgegeben werden
End Sub