Перевод кода с Paskal в VBA

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

Помогите плиз перевести код в VBA

s:string;
a, i, k, b, n:integer;
begin
readln(s);
readln(a);
k:=1;
for i:=1 to length(s) do begin
k:=k*val(s[i], n);
if val(s[i], n)=a then b:=b+1;end;
writeln(k);
if b=0 then writeln('yes')
else writeln('no');
readln;
end.

Решение задачи: «Перевод кода с Paskal в VBA»

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

                            sub from_pascal()
dim s as string
dim a as integer, i as integer, k as integer, b as integer, n as integer
s=inputbox("s")
a=val(inputbox("a"))
k=1
for i=1 to len(s)
n=val(mid(s,i,1))
k=k*n
if n=a then b=b+1
next
msgbox(k)
if b=0 then 
msgbox("yes")
else 
msgbox("no")
end if
end sub
                        