我的代码有问题吗

Question

Sub Main()
    On Error GoTo errorhandle
 
    systemini
    Dim mFrm As New MainForm
  '  mFrm.Show
    
    mFrm.SendXiaoLiangSms
    
    Unload mFrm    Set mFrm = Nothing
    
    End
     
     Exit Sub    '推出过程
     
errorhandle:
    ''MsgBox Err.source & " " & Err.Number & " " & Err.Description, vbInformation, "提示"
   ' MsgBox "请配置好 ini 文件 , 连接数据库 ! ", vbInformation, "提示"
    Exit Sub
End Sub

Answer 1

End 
    
Exit Sub    '推出过程 

Answer 2

这个代码为什么要加END呢，加了这个后面的代码就执行不到了

Answer 3

去掉End，要不就直接结束了。

Answer 4

    Unload mFrm    Set mFrm = Nothing
   
    End
   
    Exit Sub    '推出过程 不过他好像就是要发送了短信后退出程序。