Hola, puede ser de la siguiente forma:
Código:
Function HTML_Title(tBox As TextBox) As String
Dim Inst1 As Long, Inst2 As Long
Inst1=InStr(tBox.Text, "<title>") )
If Inst = 0 Then HTML_Title = "Sin título": Exit Function 'Si no hay etiqueta de título
Inst2=InStr(tBox.Text, "</title>", Inst1 + 7)
If Mid(tBox.Text, Inst1 + 7, 8) = "</title>" Then HTML_Title = "Sin título": Exit Function 'Si hay etiqueta pero no hay título [<title></title>]
HTML_Title=Mid(tBox.Text, Inst1 + 7, Inst2 - (Inst1 + 7))
End Function
Este código lo puedes poner después del comando que le des a tu programa para cargar la página HTML para que te busque el título. Espero no hallan errores pero si los hay me mandas un mensage privado. OK bye