一般情况下，我们可以使用for...next ; do while 等顺序语句。这里介绍一些其他的循环语句。

需要注意的是结构化程序使用一般循环语句即可，建议不要轻易使用下面的语句，虽然VBA还支持。

1、Goto line 该语句为跳转到line语句行

2、On expression gosub destinatioinlist 或者 on expression goto destinationlist 语句为根据 exprssion表达式值来跳转到所要的行号或行标记

3、Gosub line…line…Return语句， Return 返回到 Gosub line行，如下例：

Sub gosubtry()          Dim num         num = InputBox("输入一个数字，此值将会被判断循环")         If num > 0 Then GoSub Routine1: Debug.Print num: Exit Sub     Routine1:          num = num / 5         Return     End Sub

4、while…wend语句，只要条件为TRUE，循环就执行，这是以前VB老语法保留下来的，如下例：

While Condition 'while I<50         [statements]  'I=I+1     Wend  'Wend

摘自：Office教程学习网