Vba microsoft word составить программу, которая запрашивает пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введен.

Sub parol()
Dim s As String
While s <> "1234"
  s = InputBox("Введи пароль:")
Wend
End Sub

В кавычках вместо 1234 можно задать любой пароль