ВБА

[Donix]

Здравствуйте, помогите пожалуйста перевести код с Паскаля на ВБА!

read(tex, ch); 
if pos(ch, str_more) = 0 then
  if pos(ch, str_once) > 0 then begin
    delete(str_once, pos(ch, str_once), 1);
    str_more := str_more + ch; 
  end
  else str_once := str_once + ch;

Если что, то вот само задание: дан файл, содержащий текст на русском языке. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.