While...WendステートメントはFor...Nextステートメントと似ています。For...Nextステートメントは繰り返しの回数を指定しますが、While...Wendステートメントは指定された条件式がTrueと評価されている間だけループを繰り返します。

「5963」のパスワードが入力されるまで入力を要求します。キャンセル押下で終了します。

Sub Sample1()
  Dim i
  While i <> 5963
    i = Application.InputBox("パスワードを入力してください")
    If i = False Then GoTo Canceled
  Wend
  MsgBox "パスワードが入力されました"
  Exit Sub
Canceled:
  MsgBox "キャンセルされました"
End Sub

A列に1行目から行番号の階乗を出します。値が100,000,000を超えるまで続けます。

Sub Sample2()
  Dim i, j
  While j < 100000000
    i = i + 1
    j = Application.WorksheetFunction.Fact(i)
    Cells(i, 1).Value = j
  Wend
End Sub