Public WithEvents MSN As Messenger

Private Sub Form_Load()
    Set MSN = New Messenger --> se crea una instancia del tipo messenger
End Sub

Private Sub Command1_Click()
    If MSN.MyStatus = MISTATUS_INVISIBLE Then
        MsgBox "estas como no conectado"
    End If
End Sub

Erase Paises

Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim xPos&, n&, nlen&, x&, strCadena$
    n = SendMessage(Text5.hwnd, EM_GETLINECOUNT, 0, 0) '--> Obtiene la cantidad de lineas q posee textbox
    For i = 0 To n - 1 '--> Recorre todas las lineas
        strCadena = "": strCadena = Space$(256)
        x = SendMessage(Text5.hwnd, EM_GETLINE, i, ByVal strCadena) '--> Captura el texto de la primera linea
        xPos = InStr(1, strCadena, ">") '--> Encuentra la primera coincidencia del signo >
        xPos = InStr(xPos + 1, strCadena, ">") '--> Encuentra la segunda coincidencia del signo >
        strCadena = Mid$(strCadena, xPos + 1) '--> Extrae el resto de la cadena
        strCadena = Left$(strCadena, InStr(strCadena, "<") - 1) '--> Extrae el nombre del usuario de la cadena
        If strCadena <> "" Then
            Text6 = Text6 & Trim(strCadena) & " / " '--> Envia la cadena final a text6
        End If
    Next
End Sub