万能的吧友，请问VB怎么实现文本的模糊替换？

这个算不上模糊替换，因为你的替换规则很明确，只不过长度不定，用截取即可：
dim nPos as long
npos=Instr(1,str1,"123")
if npos>0 then str1=Mid(str1,1,nPos+2)

s=“ASD123ZXC”
s1=left(s,instr(s,"123")-1)

好的，谢谢各位吧友，下班回去试试