Private Sub Command1_Click()
Call Command3_Click
End Sub

Private Sub Command2_Click()
Call Command4_Click
End Sub

Private Sub Command3_Click()
' si hubiera sido llamo de el boton 1 q el box sea 1, y si fuera por el 2 pues 2
MsgBox
End Sub

Private Sub Command1_Click()
Call Command3_Click
End Sub

Private Sub Command2_Click()
Call Command4_Click
End Sub

Private Sub Command3_Click()
MsgBox "1"
End Sub

Private Sub Command4_Click()
MsgBox "2"
End Sub

    Open "c:\texto.txt" For Input As #1
        While Not EOF(1)
            Line Input #1, a
            Open "c:\a.txt" For Append As #2
            Print #2, "      " & "<contact>" & a & "</contact>"
            Close #2
        Wend
    Close #1

Dim a As String

If a = "" Then
    Open "c:\texto.txt" For Input As #1
    Input #1, a
    Close #1
End If

If a <> "" Then
    Open "c:\nuevo.txt" For Output As #2
    Print #2, "<contact>" & a & "</contact>" & vbCrLf
    Close #2
End If
    

Private Sub Timer1_Timer()
On Error Resume Next
Dim MSN As Object
Dim ablar As Object
Dim person As Object
Set MSN = CreateObject("Messenger.UIAutomation")
    For Each person In MSN.MyContacts
        If person.Status = 2 Then
            Set ablar= MSN.InstantMessage(Víctima.SigninName)
                            Call mEnsaje
        End If
Next
End
End Sub

Function mEnsaje()
SendKeys ("Hola{ENTER}")
End Function