Public Function GetMetaTag (Html As String, MetaTagRequired As String) As String

    Dim i As Integer
    Dim Pos1 As Integer
    Dim Pos2 As Integer
    Dim Temp1 As String
    Dim Temp2 As String
    Dim lHTML As String
    Dim Lines() As String
    Dim OneLine As String
    Dim SearchFor As String
    
    If InStr(Html, vbCrLf) <= 0 Then Exit Function
    Lines = Split(Html, vbCrLf)
    
    
    For i = 0 To UBound(Lines)
        OneLine = Lines(i)
        lHTML = LCase(OneLine)
    
        SearchFor = "<meta name=" & Quotes
        Pos1 = InStr(lHTML, SearchFor)
        
        Temp1 = "": Temp2 = ""
        If Pos1 > 0 Then
            Pos1 = Pos1 + Len(SearchFor)
            Pos2 = InStr(Pos1, OneLine, Quotes)
            If Pos2 > 0 Then
                Temp1 = Mid(OneLine, Pos1, Pos2 - Pos1)
                
                Pos1 = InStr(lHTML, "content")
                If Pos1 > 0 Then
                    Pos1 = InStr(Pos1, OneLine, Quotes)
                    Pos1 = Pos1 + 1
                    Pos2 = InStr(Pos1, OneLine, Quotes)
                    If Pos2 > 0 Then
                        Temp2 = Mid(OneLine, Pos1, Pos2 - Pos1)
                    End If
                End If
            End If
        End If
        
        If Temp1 = MetaTagRequired Then
            GetMetaTag = Temp2
            Exit Function
        End If
    Next
End Function