c=mid(s,a,b)
换成
c=mid(s,a+1,b)
试试

谢谢1楼的朋友,改成c=mid(s,a+1,b)肯定不行,我还试过b+1,也不行
多年的编程竟然对这个问题束手无策.

我等了一天了,给别人解决了不少问题,自己的问题怎么没人来解决,这个很难吗????
其实我就是从数据库提取出的字符串,数据库中放的是lrc歌词,都带[]标记,我现在想只要歌词,把[]标记内容全删了,可是想不出别的办法 ,我的办法就是删到最后就由几处删不了,
这个问题在这解决 不了只好到别处去问了.

走了,带着问题走了,高手们都过年去了,我也得准备过年.

到别处一问就得到了答案，特意回来 说明：
dim s 
s="[ti:做你的爱人] [ar:饶天亮] [al:做你的爱人] [by:E-Lyric] [offset:1500] [00:02.00][02:00.00]词曲：谢军 " 

s = ReplaceStr(s,"(\[.+?\])","") 

Function ReplaceStr(Str,Pattern,tostr) 
     If IsNull(Str) Then 
           ReplaceStr = Str 
           Exit Function 
     End IF 
     ReplaceStr = False 
     'Str = Trim(Str) 
     Dim RegEx 
     Set RegEx = New RegExp 
     RegEx.Pattern = Pattern 
     RegEx.IgnoreCase = True 
     regEx.Global = True 
       ReplaceStr = regEx.Replace(Str, tostr) 
End Function 

alert "s:"&s&"<br>"

一切OK了，希望我的问题对网友们有用