Create class module? RESOLVED

[ziggy2004]

Hello all,

I was wondering if anyone would like to help me convert the attached module, in the project, to a Class module. I sort of understand the basics of Class programming, but I'm a newbie at it and would like someone to help me out with this little project.

The Functions that I want to have are:
SetKey
GetKey
DelKey
DelKeyValue

For instance, I would like to be able to use the Class as follows:

Sub Main()
'Example for local machine:
Dim Registry As clsRegistry
Set Registry = New clsRegistry

If Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\Testing", "TestValue", "TestSetting") = "Error" Then
    Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\Testing", "TestValue", "TestSetting") = "Last Name"
    MsgBox "Value was set"
Else
    MsgBox "Error setting value"
End If
End Sub

Any advice/help is greatly appreciated,
Thanx,
ziggy2004