vb 关于剔除一个数

for i=0 to 3 
现在，如果g=1,那么 
结果等于抛去1的其他3个数，也就是023 
如果g=2，结果等于抛去2的其他3个数，也就是013 
要写成for 的如第一个例子（实际分别就是0 2 3） 
如第一个例子s= "0123" 
然后得到已知的g=1 
然后在从1234抛去g，z=023 
然后for y = 1 to 3 
w=mid(z,y,1) 
这样，w循环就得到0，2，3了 
不过这样写太麻烦，有什么简单的方法吗 
也就是i分别等于0，1，2，3 
抛去g=? ,如1，那么，w分别等于0，2，3 
这个该怎么写