Public Declare Function WritePrivateProfileSection Lib _
"kernel32" Alias "WritePrivateProfileSectionA" _
(ByVal lpAppName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Long

Dim iniFile As String
iniFile = txt_Profiles.Text & "\" & "Users" & ".ini"
 
WritePrivateProfileSection "Profil", lbl_UserProfilName.Caption, iniFile
WritePrivateProfileSection "Name", txt_UsersName.Text & " " & _
  txt_UsersNachname.Text, iniFile
WritePrivateProfileSection "eMail", txt_UsersEMail.Text, iniFile