Sub whilewend()
'設定初始值
n = 0
'設定條件式
While n * 1000 < 5000
'符合條件式進行下列運算式
'不符合則跳出迴圈
    n = n + 1
'迴圈自While開始
Wend
'將最後的n填入A1
Range("A1") = n
End Sub