1、打开VBE，编写代码：
实现功能：
在限制次数内，输入正确的数字；
Sub goToLine()
Dim i%
Dim str$
line:
i = i + 1
If i > 3 Then Exit Sub
str = InputBox("请输入!")
If str <> "123" Then GoTo line '指定跳转到的行；
End Sub
2、点击插入--形状，选择一个形状；
4、选择形状，右键指定宏，选择刚刚定义的宏goToLine；
3、运行结果如下图所示，当未超过3次时，要求重复输入字符；当超过3次时，将退出程序。
1、二、实现功能：判断表格数据中是否为迟到；
1、初始数据为：
2、在VBE中编写代码，如下：
Sub goToReturn()
Dim i%
For i = 2 To 8
If Sheet3.Range("a" & i) > 1 / 3 Then GoSub 100 'GoSub
Next i
Exit Sub '循环完后，则直接退出
100:
Sheet3.Range("b" & i) = "迟到"
Return 'Return
End Sub
3、点击插入--形状，选择一个形状；
4、选择形状，右键指定宏，选择刚刚定义的宏goToReturn；
4、点击宏，运行宏，得到如下的运行结果。
5、综上所述，如下为GoTo 和GoSub的用法，都是跳转到某行，继而运行某个模块的功能。
