取变量字符有关问题

取变量字符问题求助
为什么用下边的程序选择CHECK2的时候，文本框输出居然是一个逗号，选择CHECK3的时候也是一个逗号。
Dim sql
If Check2.Value = 1 Then sql = "x" + ","
If Check3.Value = 1 Then sql = sql + "y" + ","
If Check4.Value = 1 Then sql = sql + "z"
If Right(sql, 1) = "," Then
sql = Mid(sql, Len(sql), Len(sql) - 1)
End If
Text1 = sql
------解决方案--------------------
sql = Mid(sql, Len(sql), Len(sql) - 1)
这个错了
===>
sql = Mid(sql,1, Len(sql) - 1)