求助 关于用户名是否重复的判断

Private Sub 确定_Click()
Dim i As Range
For Each i In Range("B1:B65533")
If i.Value = 姓名.Value Then
MsgBox "用户名已经存在，请更换其他用户名注册!", vbExclamation, "错误提示"
Exit Sub
End If
Next i
Dim Xrow As Integer
Xrow = Range("A1").CurrentRegion.Rows.Count + 1
Cells(Xrow, "A") = Xrow - 1
Cells(Xrow, "B") = 姓名.Value
Cells(Xrow, "C") = 密码.Value
姓名.Value = ""
密码.Value = ""
密码2.Value = ""
用户注册.Hide
End Sub
代码如上，但是在判断用户名是否重复的时候，发现输入中文或者字母数字混搭的用户名可以正确判断是否已经在，但是对于纯数字的用户名，则无法判断是否重复，而是直接通过了注册。
这个问题求高手解决~~~