mempasword data yang akan di print pada visual basic editor

Sub FilePrint()
Dim txtPass
Dim txtMasuk
txtMasuk = "232989"
txtPass = InputBox("Masukkan Password", "Komputer Di Password")
If txtPass = "" Then Exit Sub
If txtPass = txtMasuk Then
Dialogs(wdDialogFilePrint).Show
Else
MsgBox "Password Salah", vbCritical, "Konfirmasi"
End If
End Sub