【Excel】特定コードの文字のみ削除する

海外からのファイルで、存在はしてるのに表示されない、検索も出来ない謎の文字があったので作成。
A列の2行目以降にチェックしたい文字列を置いて、B列に結果を返すかたち。
文字コードはCODE関数で調べる。

Sub CodeDel()

Dim rtnVal As String
Dim str As String
Dim intLen As Integer, intAsc As Integer
Dim i As Integer, j As Integer

i = 2

Do
intLen = Len(Cells(i, 1))
rtnVal = ""
For j = 1 To intLen
str = Mid(Cells(i, 1), j, 1)
intAsc = Asc(str)
If intAsc <> 13 And intAsc <> 10 Then '削除するコードを指定
rtnVal = rtnVal & str
End If
Next j
Cells(i, 2) = rtnVal
i = i + 1
Loop Until Cells(i, 1) = ""

End Sub