Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function ridTags(myStr)
If Trim(myStr & "") = "" Then Exit Function
Dim newStr As String, i As Integer, flg As Boolean, x As String
For i = 1 To Len(myStr)
x = Mid(myStr, i, 1)
If flg Then
If x = ">" Then flg = False
Else
If x = "<" Then
flg = True
Else
newStr = newStr & x
End If
End If
Next i
ridTags = newStr
End Function