Predmet:Input box kao lozinka

---

Može li mi netko pomoći oko koda kako bi text pretvorio u ***.Kao kod lozinke.
Evo kod.
Dim strInput As String
Dim ctl As Control

For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = False
End If
Next ctl

If TabCtl0.Value = 1 Then
strInput = InputBox("Upišite lozinku za pristup" & vbNewLine & vbNewLine & "PASSWORD = xxxx", _
"Ograničenje pristupa")


If strInput = "" Or strInput = Empty Then
MsgBox "Nemate odobrenje", , "Odobrenje "
TabCtl0.Pages.Item(0).SetFocus
Exit Sub
End If


If strInput = "xxxx" Then

For Each ctl In Controls
If ctl.Tag = "*" Then
ctl.Visible = True
End If
Next ctl

Else
MsgBox ("Nažalost nemate pristup")
TabCtl0.Pages.Item(0).SetFocus

Exit Sub
End If
End If

End Sub