Private Sub Command1_Click()
'// Fråga efter nytt namn för den registrerade organisationen
strOrganization$ = InputBox("Organisation:")
If strOrganization$ = "" Then
MsgBox "Empty String", vbCritical, "Error"
Exit Sub
End If
'// Sparar strängen (organisationen) till registret
Call savestring(HKEY_LOCAL_MACHINE, _
"Software\Microsoft\Windows\CurrentVersion", _
"RegisteredOrganization", strOrganization$)

'// Frågar efter nytt namn på den registrerade ägaren
strOwner$ = InputBox("Owner:")
If strOwner$ = "" Then
MsgBox "Empty String", vbCritical, "Error"
Exit Sub
End If

'// Sparar strängen (ägaren) till registret.
Call savestring(HKEY_LOCAL_MACHINE, _
"Software\Microsoft\Windows\CurrentVersion", _
"RegisteredOwner", strOwner$)
End Sub