VB6 Reg Read/Write

VB6 Hader mig!, alle de posts jeg kan finde, kan jeg ikke få til at virke.

Er der nogle der kan hjælpe mig ?

Jeg har prøvet med :

Private Sub Command3_Click()
Dim navn99 As String
Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    Name99 = WshShell.regread("HKEY_CURRENT_USER\\Software\\Valve\\CounterStrike\\Settings\\Key")
   
    MsgBox Name99
   
    Set WshShell = Nothing
End Sub

Private Sub Command4_Click()
Test89 = "Hej\"
SaveSetting "lol01\", "mig\", "loltest\", Test89
End Sub

Og når jeg prøver at køre det kommer denne her: http://www.bymyself.1go.dk/vberror.jpg

Hvad skal jeg gøre ???