① VB缺少 行號 或標簽或語句 或結束語
把這一行「如果」前面的雙引號改為單引號（注意是英文的），下面這個樣子：'如果沒有這個用戶
② VB中len(a)提示編譯出錯,提示缺少(
InStr是VB保留字，不能用作變數名，稍微改一下即可：c = Len(instr1) '當然前面的定義和賦值也要改為instr1補充：instr是VB本身的一個內部函數名，所以不能用作變數名，不然VB會搞不清楚它究竟是函數還是變數！