Public Function GetFirstHeader (Html As String) As String

    Dim Pos1 As Integer
    Dim Pos2 As Integer
    
    Pos1 = InStr(Html, "<h1>")
    Pos2 = InStr(Html, "</h1>")
        
    If Pos1 > 0 Then
        If Pos2 > 0 Then
            Pos1 = Pos1 + 4
            GetFirstHeader = Mid(Html, Pos1, Pos2 - Pos1)
        End If
    End If
End Function