'Funktionen zum Lesen bzw. Schreiben nach INI - File konventionen.
Private 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
.
.
.
.
 
Dim buffer As String * 17
lResult = GetPrivateProfileString("System", "Name", _ 
"MeinSystem", buffer , Len(buffer ), toolini)