VB登陆框中，提示MakeStr未定义

我要做试卷生成系统~

抄了人家的一段人事管理系统

登陆框就出错

NameKey = MakeStr(txtUser)

说MAKESTR没定义？？？

怎么解决阿？？~~~重赏阿~~
================================
Public PasswordKey As String
Public Try_times As Integer
Public NameKey As String

Private Sub Cmd_Cancel_Click()
End
End Sub
Private Sub Cmd_OK_Click()
Dim j As Single

'数据有效性检查
If Trim(txtUser) = "" Then
MsgBox "请输入用户名"
txtUser.SetFocus
Exit Sub
End If
If Trim(txtPwd) = "" Then
MsgBox "请输入密码"
txtPwd.SetFocus
Exit Sub
End If

NameKey = MakeStr(txtUser)
PasswordKey = MakeSt(txtPwdr)

'判断用户是否存在
If MyUser.In_DB(NameKey) = False Then
MsgBox "用户名不存在"
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭&

VB登陆框中，提示MakeStr未定义 VB中制作登陆窗口 vb.net 登陆框中设置输入格式 怎么在vb程序中设置提示框啊 请教VB中登陆权限的问题 VB中如何实现用户登陆界面 VB中..帐号密码输入正确.让登陆变成已登陆 VB 登陆框的问题 vb 2005写登陆框 VB中如何提示程序正在计算?