如何去掉第一个逗号或者最后一个逗号？

'判断字符串长度是否大于0
If Len(gnomber) > 0 Then

'判断左面第一个是不是","，如果是的话从第二位开始取数值
If Left(gnomber, 1) = "," Then gnomber = Mid(gnomber, 2)

End If

'判断字符串长度是否大于0
If Len(gnomber) > 0 Then

'判断右面第一个是不是","，如果是的话从第一位开始取数值到倒数第二位
If Right(gnomber, 1) = "," Then gnomber = Mid(gnomber, 1, Len(gnomber) - 1)

End If

去掉第一个逗号:
str = "gnomber＝,1,3,2"
str=replace(str,"=,","=")
去掉最后一个逗号:
str = "gnomber＝1,3,2,"
str = left(str,len(str)-1)

function dealDot(ChkStr)
dim s,r
r=ChkStr
s=Left(r,1)
if s="," or s="，" then r=Right(r,Len(r)-1)

s=Right(r,1)
if s="," or s="，" then r=Left(r,Len(r)-1)

dealDot=r
end function

使用方法：
gnomber=,1,3,2
gnomber=dealDot(gnomber)

若是字符串是"gnomber=