Удаление однобуквенных слов и лишних пробелов - VB

Формулировка задачи:

Добрый день! Помогите решить задачу. Необходимо из строки удалить все однобуквенные слова и лишние пробелы. задача решена на Паскале, но не могу перевести на Бейсик. Помогите!

var
  Form1: TForm1;
  s,k,s1:string; i,Len,LenW :integer;
  const
  d = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];       //символы между словами
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=stroka.Text;
Len := Length(S);
LenW := 0;
    for i := Len downto 1 do
     begin
      if S[i] in D then Continue;    //Пропустить разделители между словами
      Inc(LenW);         //Длина слова
      if (i = 1) or (S[i - 1] in D) then         //Начало слова
      begin
      if LenW = 1 then Delete(S, i, LenW);  //Если слово однобуквенное удалить его
 
    LenW := 0;
    end;
    end;                           //Обнуление длины слова.
    Len := Length(S);
 for i := Len downto 1 do
 if (S[i] in [' ', #9]) and ((i = 1) or (S[i] = S[i - 1])) then
    Delete(S, i, 1);
    Len := Length(S);               //Если в конце строки остался пробел - удалить его
  if (Len > 0) and (S[Len] in [' ', #9]) then Delete(S, Len, 1);
//while pos('  ',s)<>0 do s:=stringreplace(s,'  ',' ',[rfreplaceall]);  //замена в строке s двойных пробелов одинарным, в конце указано, что удаляться будет во всей строке с учетом регистра
rez.Text:=s;
end;
end.

Решение задачи: «Удаление однобуквенных слов и лишних пробелов»

textual
                            Листинг программы 
                        

                            function PresStr(S as string) As string
  W=Split(S," ")
  for i%=0 to Ubound(W,1)
      if Len(W(i%))>1 then PresStr=PresStr & W(i%) & " "
  Next i%
  PresStr=Trim$(PresStr)
End Function
                        