VERIFICAR SE IE ESTA LIGADO

Option Explicit
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String, Ret As Long
    Ret = GetWindowTextLength(hwnd)
    sSave = Space(Ret)
    GetWindowText hwnd, sSave, Ret + 1
    
    If InStr(1, sSave, "Microsoft Internet Explorer") > 0 Then
        MsgBox "Internet Explorer Ativo !", vbInformation, ""
    End If

    EnumWindowsProc = True
End Function

Option Explicit
Private Sub Form_Load()
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub