Dim variable As String
 
Private Sub Command1_Click()
 
 
variable = Text1.Text
 WritePrivateProfileString "Einstellungen", "Ordner", variable, App.Path & _
   "\Datei.ini"
 
End Sub
 
Private Sub Command2_Click()
 
variable = GetIniString("Einstellungen", "Ordner", "", App.Path & "\Datei.ini")
Text1.Text = variable
End Sub