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
Sub Test()
Anweisung "Initialisierung", "Zeile 5"
End Sub
Sub Anweisung(Routine As String, Info As String)
IniSchreiben "C:\tmp\tt.ini", Routine, "Info", Info
End Sub
Private Sub IniSchreiben(ByVal strDatei As String, ByVal fldName As String, ByVal key As String, value As String)
WritePrivateProfileString fldName, key, value, strDatei
End Sub