K = InputBoxPas("", "Unesi Password", " Password")
 If K = a Then
  End If