Public Function KillHTML(sText As String, sReplaceWith As String) As String
    'Kills HTML tags
    Dim iLeft As Integer
    Dim iRight As Integer
    Dim sTmp As String
    
    iLeft = InStr(1, sText, "<")
    While iLeft > 0
        iRight = InStr(iLeft + 1, sText, ">")
        sTmp = Mid(sText, iLeft, iRight - iLeft + 1)
        sText = Mid(sText, 1, iLeft - 1) & sReplaceWith & Mid(sText, iLeft + Len(sTmp))
        iLeft = InStr(1, sText, "<")
    Wend
    
    KillHTML = sText
End Function