Function passwordOK()
   msg="Please type your password and click OK"
   title="Members password required"
   entry = inputBox ( msg, title)
   If UCase(entry) = "1986 TL-HBA"  Then
       passwordOK = True
   Else
       passwordOK = False
   End If
End Function