excel中也常使用Return语句,下面是其使用示例。
  Sub GosubNext()
  Dim Num
  ' 输入一个数字。
   Num = InputBox("请输入一个正整形的数?")
   ' 如果输入是一个正整型,则使用子程序。
   If Num > 0 Then GoSub MyNext    
    Debug.Print Num
    Exit Sub    ' 使用 Exit 命令来避免错误发生。
  MyNext:
   Num = Num/3    ' 将数除以3。
  Return
  ' 将控制返回 GoSub 之后的语句。
  End Sub
  代码解释:
  本示例使用 GoSub 来调用子过程里的一段子程序。Return 语句则将执行返回到 GoSub 的下一个语句。Exit Sub 语句则是用来避免控制意外进入该子程序的情形发生。