Function LastOne(Str,splitStr)
'輸入字符和分隔符，得到最后一部分
LastOne = right(Str,len(Str)-InStrRev(Str,splitStr))
End Function
msgbox LastOne("1,2,3", ",")

Function jb51(Str,splitStr)
'輸入字符和分隔符，得到最后一部分
strarr=split(Str,splitStr)
lens=ubound(strarr)
'獲取數組的長度
jb51 = strarr(lens)
End Function
msgbox jb51("1,2,3", ",")