Очистка строки от не распознаваемых символов

Dim sVal$, sText$, sChr$, iVal%
' ...
'Очистка от не распознаваемых символов в теле страницы (опционально - а ведь могут быть):
    For iVal = 1 To Len(sVal)
        sChr = Mid(sVal, iVal, 1)
        If AscW(sChr) > 0 Then
           sText = sText & sChr
        End If
    Next iVal