Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
sum = 0
i = 1
GoTo 20:
sum = sum + i
i = i + 1
If i <= 100 Then GoTo 20
MsgBox "从1加到100的结果为：" & sum
End Sub

GoTo 20:
20在哪？ Goto表示程序执行转移，如果有转移程序，名称也不要用数字
Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
sum = 0
For i = 1 to 100
    sum = sum + i
    i = i + 1
Next i
MsgBox "从1加到100的结果为：" & sum
End Sub

这是学 QBAsic 的。

Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
sum = 0
i = 1
'GoTo 20:            
20:        '标签应该在这行。标签的写法是： 以标识符或数字开始，不能是保留字，以冒号结束，冒号后面不能再有其它命令，中间也不能有空格。
sum = sum + i
i = i + 1
If i <= 100 Then GoTo 20
MsgBox "从1加到100的结果为：" & sum
End Sub

-------------------------
这是最传统BASIC里的 GO 循环，在VB6里还是支持的，但 就不支持了。
现在结构化程序都不建议使用 goto 。
-------------------------
在VB6 里，只有一种情况下才建议使用GOTO：
从多重循环中直接退出循环，才建议使用GOTO。

且学且珍惜，得认学习真正消化