Como utilizar Ucase - Lcase en un TextBox--

Hola Expertos, espero que me puedan ayudar, no tengo muchos conocimientos en la materia, sin embargo estoy trabajando en una macro en la que estoy tratando de controlar el acceso a algunos hojas, básicamente tengo un userform inicial en el que solicito el nombre de usuario y posteriormente al aceptar lo válido contra el usuario que inicio sesión en la intranet.
Private Sub Aceptar_usuario_Click()
If UCase(TextBox1.Value) = UCase(Application.UserName) Then
Hoja5.Activate
Else
Application.EnableEvents = False
ActiveWorkbook.Close False
End If
End Sub
Pero al ejecutar me indica que es imposible encontrar el proyecto en la bibliteca, estoy trabajando en excel 97.