VBA как можно перевести код с Pascal

[Ken_Watanabe]

Здравствуйте, помогите перевести код в VBA на форму:

var
otvet:integer; // сумма цифр
i:integer; // счетчик цикла
S:String; // данная строка
begin
// Ввод данных
Writeln('Введите целое положительное число');
readln(S);
// решение
otvet:=0; // присвоение начального элемента
for i:=1 to length(S) do //объявление строки от конца строки к началу
begin
otvet:=otvet+strtoint(S[i]);
end;
//Вывод ответа
Write('Сумма цифр ', otvet);
end.