Hola:
"Compile Error: Only valid in object module"
Esto quiere decir q la declaracion q hiciste no va en ese tipo de modulo.
Antes q nada asegurate de tildar la referencia a la API del messenger en Proyecto --> Referencias --> "Messenger API Type Library", despues declaras en la sección de General del form asi
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
Saludos.