Сделала в итоге обычным перебором строки. Правда, немного "мультипликация" на экране, но в целом результат достигнут.
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) <> 13 And Asc(Mid(s, i, 1)) <> 10 Then
itog = itog + Mid(s, i, 1)
End If
Next
А других вариантов никто не подскажет?
