Custom Remove HTML code functions

function Killhtmllabel (str) ' Functions start
Dim N,m,str2 ' defines three variables
n = InStr (str, "<") ' find the location of the first ' < '
m = InStr (str, ">") ' Find the location of the first ' > '
str2 = Str ' assigns the value of STR to STR2
Do While n > 0 and N < m ' If n>0 indicates that a "<" is found, if n<m indicates "<" to the left of ">", the string between "<" and ">" is HTML code and needs to be filtered out
STR2 = Left (str2,n-1) & Mid (str2,m+1) ' Take ' < ' to the string to the right of the ' > ' and connect them together
n = InStr (str2, "<") ' finds the location of the first "<" in the remaining string
m = InStr (str2, ">") ' Finds the location of the first ">" in the remaining string
Loop ' Loop '
Killhtmllabel = str2 ' returns the filtered string.
End Function ' ends.