Titulo del internet explorer

[David]

Eso es realmente difícil ya que puede existir varias ventanas de Internet Explorer, la única ayuda que te puedo dar es para una ventana:
Usa FindWindow con el Class IEFrame y luego esta función para saber su Título:
Private Function WindowTitle(ByVal hwnd As Long) As String
'Devuelve el título de una ventana, según el hWnd indicado
'
Dim sTitulo As String
Dim lenTitulo As Long
Dim ret As Long

'Leer la longitud del título de la ventana
lenTitulo = GetWindowTextLength(hwnd)
If lenTitulo > 0 Then
lenTitulo = lenTitulo + 1
sTitulo = String$(lenTitulo, 0)
'Leer el título de la ventana
ret = GetWindowText(hwnd, sTitulo, lenTitulo)
WindowTitle = Left$(sTitulo, ret)
End If
End Function

Ojo:
GetWindowTextLenght y GetWindowText son llamadas API