Public Function GetTitleFromHTML (Html As String) As String

    Dim Pos1 As Integer
    Dim Pos2 As Integer
    
    Pos1 = InStr(Html, "<title>")
    Pos2 = InStr(Html, "</title>")
        
    If Pos1 > 0 Then
        If Pos2 > 0 Then
            Pos1 = Pos1 + 7
            GetTitleFromHTML = Mid(Html, Pos1, Pos2 - Pos1)
        End If
    End If
End Function