Ya se que para evitar esto debería indicar mas específicamente de que tipo de objeto se trata, osea, si se trata de un Textbox o un Button
pero en este caso no tengo idea que pueda hacer

El codigo que me da error es este (la parte de Regwrite)

Dim WSHShell As Object
 
WSHShell = CreateObject("Wscript.Shell")
 
WSHShell.RegWrite("BLA BLA BLA COSAS DE REGISTRO")

En otros problemas he resuelto esto con un Ctype o DirectCast para convertir el objet directamente a lo que quiero, pero aqui la verdad no se que tipo es  

¿Existe solucion, o lo mejor seria Option Stric Off ?
              

Si quieres un consejo, usa esto:

    '  RegCreateKey(Registry.CurrentUser, "Software\MyProgram")
    '  RegDeleteKey(Registry.CurrentUser, "Software\MyProgram")
    '  RegDeleteValue(Registry.CurrentUser, "Software\MyProgram", "Value name")
    '  RegSetValue("HKEY_CURRENT_USER\Software\MyProgram", "Value name", "Data", RegistryValueKind.String)
    '  Dim RegValue = RegGetValue("HKEY_CURRENT_USER\Software\MyProgram", "Value name"))
 
#Region "Registry Edit"
 
    Public Sub RegCreateKey(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String)
        RegRoot.CreateSubKey(RegKey)
        RegRoot.Close()
    End Sub
 
    Public Sub RegDeleteKey(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String)
        RegRoot.DeleteSubKey(RegKey)
        RegRoot.Close()
    End Sub
 
    Public Sub RegDeleteValue(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String, ByVal RegValue As String)
        Using key As Microsoft.Win32.RegistryKey = RegRoot.OpenSubKey(RegKey, True)
            key.DeleteValue(RegValue)
            key.Close()
        End Using
    End Sub
 
    Public Sub RegSetValue(ByVal RegKey As String, ByVal RegValue As String, ByVal RegData As String, ByVal RegDataType As RegistryValueKind)
        My.Computer.Registry.SetValue(RegKey, RegValue, RegData, RegDataType)
    End Sub
 
    Public Function RegGetValue(ByVal RegKey As String, ByVal RegValue As String)
        Return My.Computer.Registry.GetValue(RegKey, RegValue, Nothing)
    End Function
 
#End Region

Saludos