求助：中文字用户名注册问题

各位帮帮忙，我用Text文件储存用户的注册信息，要求注册的用户名不能重复，所以在用户注册的时候就要将用户输入的用户名和Text文件里边已有的用户名进行比较，代码如下：
Open App.Path & "\Data\user.txt" For Random As #1 Len = Len(user1)
        k = LOF(1) / Len(user1)
        i = 0
        N = 0
start:  i = i + 1
        Get #1, i, user1
            U$ = Trim(user1.username)
            P$ = Trim(user1.userpwd)
            N = Val(user1.usernumber)
        If U = Trim(userreg.Text) Then
             MsgBox "帐户已存在", 48, "系统提示"
userreg.text是注册时输入的用户名，U$是Text文件里的已有的用户名

不知道什么原因，用字母或者数字组成的用户名注册时，用户名相同重复的话系统会提示你说用户名重复， 
可是用中文组成的用户名注册的时候，即使用户名相同重复，也可以继续注册，系统不会提示你说用户名相同重复，知道原因的帮帮忙，谢谢！

补充：VB ,  基础类