'Despues de declarar la API...
Public WithEvents MSN As Messenger
Private Sub Command1_Click()
    MSN.OptionsPages 0, 0
    SendKeys "{TAB}" 'saca esto si queres cambiar el nick
    SendKeys "Lo que quieras..." & "{ENTER}"
End Sub

Private Sub Form_Load()
    Set MSN = New Messenger
End Sub

Private Sub Form_Load()
        Text1.Text = "c:\em_sec.txt"
        Open Text1 For Input As #1
        While Not EOF(1)
              Line Input #1, file_data$
              Text1.Text = Text1.Text & file_data$ & CrLf
        Wend
        Close #1
End Sub

Dim Lbl as Label
For Each Lbl in Form1 'en vez de Form1 puede ir un Frame, PictureBox o cualquier otro contenedor
    Lbl.BackColor = vbRed
    Lbl.ForeColor = vbGreen
Next

    Dim p1 As Integer, p2 As Integer, ID As String, Todo As String, Antes As String, Despues As String
    Todo = Text1 'text1 va a contener la linea <player name="...
    p1 = InStr(1, Todo, "id=", vbTextCompare) 'buscamos desde el principio hasta que encuentre ID= (esto nos devuelve la posicion de ID=)
    p2 = InStr(p1 + 4, Todo, """", vbTextCompare)
    'el +4 y -4 es porque ID=" ocupa 4 epacios, entonces empezamos a guardar el nombre sin contar esos espacios
    ID = Mid(Todo, p1 + 4, p2 - p1 - 4) 'la variable ID almacena el ID obtenido
    
    'Si lo queres cambiar podes poner:
    Antes = Mid(Todo, 1, p1 + 3) 'guardas lo que esta antes de ID
    Despues = Mid(Todo, p2) 'lo que esta despues...
    ID = "NYlOn =)" 'cambias ID
    Todo = Antes & ID & Despues 'metes todo junto en una variable
    MsgBox Todo 'aca lo mostras =P

Texto = "Hola como va"
MsgBox InStr(1, Texto, "como") 'me va a devolver 6

Get #1, , imagen

imagen = Space(LOF(1)) 'Que haga un espacio del largo del archivo

Static i as Integer
i = i + 1
SavePicture img, "X:\Foto" & i & ".bmp"

sckServer(Index).SendData enviar