① VB缺少 行号 或标签或语句 或结束语
把这一行“如果”前面的双引号改为单引号（注意是英文的），下面这个样子：'如果没有这个用户
② VB中len(a)提示编译出错,提示缺少(
InStr是VB保留字，不能用作变量名，稍微改一下即可：c = Len(instr1) '当然前面的定义和赋值也要改为instr1补充：instr是VB本身的一个内部函数名，所以不能用作变量名，不然VB会搞不清楚它究竟是函数还是变量！