Function inHTML(ByVal str As String)
Dim sTemp As String
sTemp = str
inHTML = ""
If sTemp = "" Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, "&;nbsp", " ")
sTemp = Replace(sTemp, """, Chr(34))
inHTML = sTemp
End Function
Dim sTemp As String
sTemp = str
inHTML = ""
If sTemp = "" Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, "&;nbsp", " ")
sTemp = Replace(sTemp, """, Chr(34))
inHTML = sTemp
End Function