Virus >> wscript.exe //B "C:\Users\S4LXenox\AppData\Local\Temp\VirusUSB.vbs"

Imports Microsoft.Win32
 
Public Class Form1
    Private Sub ListarHKCU()
        Dim key As RegistryKey
        Dim valueNames As String()
        Dim currentUser As RegistryKey = Registry.CurrentUser
        Dim name As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
        Dim str2 As String = "Software\Microsoft\Windows\CurrentVersion\Runonce"
        Try
            key = currentUser.OpenSubKey(name, True)
            valueNames = key.GetValueNames
            Dim str3 As String
            For Each str3 In valueNames
                Try
 
                    ListBox1.Items.Add((str3 & " >> " & key.GetValue(str3).ToString))
                Catch ex As Exception
                End Try
            Next
        Catch ex As Exception
        End Try
        Try
            key = currentUser.OpenSubKey(str2, True)
            valueNames = key.GetValueNames
            Dim str3 As String
            For Each str3 In valueNames
                Try
                    ListBox1.Items.Add((str3 & " >> " & key.GetValue(str3).ToString))
                Catch ex As Exception
                End Try
            Next
        Catch ex As Exception
        End Try
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        ListarHKCU()
    End Sub
End Class

Dim APP_string As String() = {"wscript", "Cmd"}
        For Each elemento As String In APP_string
            If TextBox1.Text.Contains(elemento) Then
                'AQUI VA EL CODIGO DEL MENSAJE Y LA OPCION PARA BORRAR EL VIRUS DEL REGISTRO
            End If
        Next

SOFTWARE\Microsoft\Windows\CurrentVersion\Run

@echo off
 
:Comandline
IF ["%~1"]==["-e"] goto o
 
:Crear vbs
set Batch=%~dpnx0
(
echo set objshell ^= createobject^("wscript.shell"^)
echo objshell^.run "%Batch% -e"^,vbhide ) > %temp%\bas.vbs
start %temp%\bas.vbs
exit
 
:o
::::::::::::::::::::::::::::::::
:: Tu código aquí...           :
::::::::::::::::::::::::::::::::

Bueno espero que les sirva de algo este sencillo aporte.  

Imports System.IO
 
Public Class Form1
 
    Dim Errores As New List(Of String)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        detectar()
    End Sub
 
    Private Sub detectar()
        For Each USBex In Environment.GetLogicalDrives
            If New DriveInfo(USBex).IsReady = True Then
                If Not New DriveInfo(USBex).DriveType = DriveType.Fixed Then
                    Try
                        ListBox1.Items.Add(USBex)
                    Catch ex As Exception
                        Errores.Add(ex.Message)
                        'ListBox2.Items.Add(errores)
                    End Try
                End If
            End If
        Next
    End Sub
 
End Class

 'Para usarlo
 'FormNotificacion(NOMBRE DE SU FORMULARIO a mostrar)
 
   Private Sub FormNotificacion(ByVal formulario As Object)
        Dim fh As Form = TryCast(formulario, Form)
        fh.ShowInTaskbar = False
        fh.Show()
        fh.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 1) - (formulario.Width / 1)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 1) - (formulario.Height / 1)))
    End Sub