Private Sub befSpeichern_Click() 
    Dim vSchluessel As String 
    Dim vPfad As Variant 
    Dim vWert As String 
    Dim SystemPfad$ 
 
    [color=red]vPfad = "C:\temp\meine_ini.ini"[/color] 
 
    Inischreiben "Datenbank", "Daten", txtDatenbankname.Text, vPfad 
 
    Inischreiben "Datenbank", "Server", txtServer.Text, vPfad 
End Sub