調用的時候出問題了
1.調用無返回值的 function 應該： call thes("mylove","b","bb") 或者 thes "mylove","b","bb"
2.如果 function 有返回值，，就得 建立個變量，接受function 的返回值：aa = thes("mylove","b","bb")
你這里的function無返回值，所以，，用第一種方法就行了

指定用傳參方式ByVal就不會出現這個問題了。

msg1=Ceshi(text1)
msg2=GetCardNo(text1)

response.Write(msg1&"<br>")
response.Write(msg2&"<br>")

function Ceshi(ByVal text)
text=text&"abcde"
Ceshi=text
end function

Function GetCardNo(ByVal CardNo)
GetCardNo=CardNo
End Function

最終結果：
1234567890abcde
1234567890

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close savechanges:=False
End Sub
親 只需要在workbook 的BeforeClose 事件里面寫上我上面這句ThisWorkbook.Close savechanges:=False就行哦 但是你所做的更更都不會保存哦,如果你想又保存且還不提示的話你要在之前就寫一下保存的代碼就象這樣
thisworkbook.save
ThisWorkbook.Close savechanges:=False

vb或vbs中function 可以用于返回值或直接調用。

如果賦值，可以這樣用：a=thes(path,a,b)
如果直接調用，不賦值，有兩種方法：
call thes(path,a,b) ‘前面加call，參數帶括號，用逗號分割
thes path,a,b ’直接寫函數名，后面空格+參數，沒有括號，參數用逗號分割

你的問題點是，一個參數時，其實被認為用了沒call的調用方法，先計算括號內的值，再帶入函數，如果括號內是三個參數用逗號分開，因此無法計算，所以報錯。