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

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

Функция:

Private Function FixStr(sText$, Optional iLine%)
'Очистка от не распознаваемых символов в тексте (Длинна теста < Integer!)
Dim sChr$, iChPos%, iAscW%
    For iChPos = 1 To Len(sText)
        sChr = Mid(sText, iChPos, 1): iAscW = AscW(sChr)
        Select Case iAscW
            Case 0: sChr = "": If iLine > 0 Then sChr = " Line: " & iLine
                Debug.Print "Попалась!:" & sChr & " - Pos=" & iChPos 
            Case Else:  FixStr = FixStr & sChr ' Чисто!
        End Select
    Next iChPos
End Function