高级功能研发区-Goto语句为何报错？金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  Goto语句为何报错？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=158787)

--  作者：15601951291
--  发布时间：2017/10/19 11:43:44
--  Goto语句为何报错？

测试代码
Sub Trade_CommandButton1_Click()

if Trade_TextBox1.Text="" then
Msgbox "请输入品种代码"
Goto Line
end if

if Trade_TextBox2.Text="" then
Msgbox "请输入交易数量"
end if

if Trade_TextBox4.Text="" then
Msgbox "请输入交易价格"
end if

Line:
Application.MsgOut "委托单填写不全"

End Sub

执行后报错1024 说Goto行缺少语句？
请问问题在哪里，VB中没有问题啊

--  作者：yukizzc
--  发布时间：2017/10/19 13:06:45
--
不支持goto语句

--  作者：guotx2010
--  发布时间：2017/11/13 22:47:05
--
改用on error resume next