sevLock_SetUserData (UserName), txtUserName.Text
            sevLock_SetUserData (UserCompany), txtUserCompany.Text
            sevLock_SetUserData (UserAddress), ""
            sevLock_SetUserData (UserPostalcode), ""
            sevLock_SetUserData (UserCity), txtUserCity.Text
            sevLock_SetUserData (UserOtherInfo), txtUserOtherInfo.Text
            txtUserKey.Text = sevLock_CreateNewKey(GetProjectName)
            If Len(txtUserKey.Text) > 0 Then
                ' Ermittelten Lizenz-Key der DLL mitteilen
                sevLock_SetUserData (UserKey), txtUserKey.Text                
                ' Lizenzdatei erstellen
                If sevLock_WriteKeyFile(App.path & "\file.key") <> 0 Then
                    MsgBox "Lizenzdatei wurde ordnungsgemäß erstellt und kann" & _
                      "beim Anwender über die ReadKeyFile-Funktion eingelesen" & _
                      "werden"
                Else
                    MsgBox "Fehler beim Erstellen der Lizenzdatei." & vbCrLf & _
                      "Fehlercode: " & CStr(sevLock_LastErrorCode())
                End If
            End If