VBS版BrainFuck语言解释器

下面是用vbs编的解释器代码：

str=InputBox("请输入代码","BrainFuck解释器")
code="p=0:Dim s(520)"
For i=1 to Len(str)
    Select Case Mid(str,i,1)
        Case ">" code = code & ":p=p+1"
        Case "<" code = code & ":p=p-1"
        Case "+" code = code & ":s(p)=s(p)+1"
        Case "-" code = code & ":s(p)=s(p)-1"
        Case "." code = code & ":Wscript.echo Chr(s(p))"
        Case "," code = code & ":s(p)=Asc(Mid(InputBox(""请输入一个字符"",""代码运行中""),1,1))"
        Case "[" code = code & ":Do While s(p)<>0"
        Case "]" code = code & ":Loop"
    End Select
Next
Execute code
MsgBox "Finally!"

测试例子是一个输出hello world!的BrainFuck程序（很带感对不对，没解释器很难看懂）： ++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.