Help with registry

[Melchiah]

Hi. Iam new here, and also new to programming and visual basic. And i need little help with registry. I want to get every single registry Name and value, which lies in HKEY_CURRENT_USER....Run(for getting and THEN deleting them to prevent run those programs at windows start). This is just for getting names.

Imports Microsoft.Win32
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim registry As Object
        Dim registry_name As Object

        Dim registry_name_x As String
        registry = CreateObject("WScript.Shell")

        Dim rk As RegistryKey = registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", False)
        For Each rk In registry
            registry_name = rk.GetSubKeyNames
            registry_name_x = CInt(registry_name)
            MsgBox(rk)
        Next rk
    End Sub

End Class

Well, this isnt working, when i run it in the vb and click button, it says system missing member exception: IWshShell3 hasnt been found.
I would appreciate help. Thank you.