arysplit = Split(strHTML, "<")

        'Assuming strHTML is nonempty, we want to start iterating
        'from the 2nd array postition
        If Len(arysplit(0)) > 0 Then j = 1 Else j = 0

        'Loop through each instance of the array
        For i = j To UBound(arysplit)
            'Do we find a matching > sign?
            If InStr(arysplit(i), ">") Then
                'If so, snip out all the text between the start of the string
                'and the > sign
                arysplit(i) = Mid(arysplit(i), InStr(arysplit(i), ">") + 1)
            Else
                'Ah, the < was was nonmatching
                arysplit(i) = "<" & arysplit(i)
            End If
        Next