Dim z As Integer
Dim x As String
x = InputBox("請輸入Y/Z(Y代表繼續；Z代表離開)")
Do While x = "Y" //判斷是否輸入了"Y"
z = z + 1
MsgBox("繼續")
x = InputBox("請輸入Y/Z(Y代表繼續；Z代表離開)")
Loop//因為輸入了Y，所以回到DO WHILE
If x = "Z" Then
MsgBox("離開")
MsgBox(z)
End If