Перевод из Pascal в VBA

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

var s:string;
    p1,p2:byte;
begin
writeln('Введите строку, содержащую текст в фигурных скобках:');
readln(s);
repeat
p1:=pos('{',s);
p2:=pos('}',s);
delete(s,p1,p2-p1+1);
until(p1=0)or(p2=0);
write(s);
readln
end.

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

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

                            Sub main()
Dim s As String, a() As String, i As Long
s = InputBox("Введите строку, содержащую текст в фигурных скобках:", , _
"Введите {строку, содержащую }текст{ в фигурных скобках}:")
a = Split(Replace(s, "}", "{"), "{")
For i = 1 To UBound(a) Step 2
  a(i) = ""
Next
MsgBox Join(a, "")
End Sub
                        