Need Help Saving Values In Controls

I Googled for "vb textbox load save file" and found this:
http://www.codearchive.com/rate.php?rid=2&go=0208

You'll have to be more specific: What does the error message say? On which line of code does it occur?

How do you go about using the windows registry?

'This example shows how you can save and retieve program setting variable etc
'The values are saved in the Registry for the application
'Read up on the SaveSetting and Getsetting for clarification of the aguments to the Functions
'Best of luck .. hope it was some help to you
'Creat a new for with 2 text boxes, one check box and a Command button with a caption of exit
'and paste the following code :)
'Try changing the size of the form, the text and check, exit the program and run it again
'and see what happens

Option Explicit

Private Sub Command1_Click()
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
SaveSetting App.Title, "ProgVars", "Check1", Check1.Value
SaveSetting App.Title, "ProgVars", "Text1", Text1.Text
SaveSetting App.Title, "ProgVars", "Text2", Text2.Text
End
End Sub

Private Sub Form_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 500)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 500)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 3250)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 3250)

Check1.Value = GetSetting(App.Title, "ProgVars", "Check1", Checked)
Text1.Text = GetSetting(App.Title, "ProgVars", "Text1", "")
Text2.Text = GetSetting(App.Title, "ProgVars", "Text2", "")
End Sub