asp删除指定范围字符？

ASP中：

dim A1,B1
A1="a11111111b222222a33333333b"
B1=A1中删除所有a至b之间的字符(包涵ab)，B1最后的值是222222就对了。

希望高手用代码来取得B1的值（字符中除了A与B之外，其他所有字符均是非固定的。）

t=1

while A1.indexOf("b")>A1.indexOf("a") and A1.indexOf("a")>0 ’如果b在a之右则循环

i=A1.indexOf("a") ‘取得a在A1中的位置

j=A1.indexOf("b") ’取得b在A1中的位置

S1=Mid(A1，t，i-t) ‘a以前的部分

S2=Mid(A1，j+1) ’b以后的部分

A1=S1+S2 ‘合并

wend

B1＝A1