[AccessD] Protecting a subform with password

Hi group,
thank's all for your response to my question
I tried the follown (which seems to work) and was wondering if it could be 
possible and how to hide the line "Level0Pass = "123""
making it unreadable e.g. instead of 123 to appear ***
thank you
kostas

Private Sub Command0_Click()
Dim Green As Boolean, Level0Pass As String, stDocName As String, 
stLinkCriteria As String
Level0Pass = "123"
Green = False
 If Pass = Level0Pass Then
    Green = True
 End If
 If Green Then
   stDocName = "MT_entoli"
   stLinkCriteria = "[AM]=" & [Forms]![MT_basic_char]![AM]
   DoCmd.OpenForm stDocName, , , stLinkCriteria
   DoCmd.Close acForm, "P_Form"
 Else
   DoCmd.Close
 End If
End Sub