char lc_chars[]
string ls_output = ""
long ll_prev, ll_pos
// копирум строку посимвольно в массив для быстрого доступа к отдельным символам
lc_chars = as_input
// переносим в конечную строку не каждый символ, а блоками валидных символов,
// т.к. посимвольно - будет тормозить. Конец предыдущего блока = Начало блока -  1 .
ll_prev =  0 
For ll_pos =  1  To Len(as_input)
  // проверяем каждый символ
  If lc_chars[ll_pos] is garbage Then
    // если символ невалидный - завершаем блок 
    // и копируем его в результат (не включая текущий символ)
    ls_output += Mid(as_input, ll_prev, ll_pos - ll_prev -  1 ) 
    ll_prev = ll_pos
  End If
Next
ls_output = Mid (as_input, ll_prev, Len(as_input) - ll_prev)

Choose Case Asc(lc_chars[i])
Case Is >=  32 
   // valid
Case  10 ,  13  /* ну может еще 9 - табуляция, 12 - перевод страницы*/
   // valid
Case Else
  // invalid
End Choose