Vb.net 从错误对象获取错误的位置

我试图写一些代码来帮助我处理软件编译版本的错误。我必须在几台不同的电脑上以编译版的形式运行该软件，以加快将数据上传到数据库的速度。我有一个脚本，当其中一台电脑出现错误时，它会向我的地址发送一封电子邮件，而不是让我反复检查

在电子邮件中，我有发生错误的子项和错误号。然而，我也希望这一行造成的错误。我尝试使用

errorobject.erl

，但是不管错误的位置如何，它只给了我值零。我还尝试了

errorobject.source

尝试为错误提供更详细的位置，但是这刚刚返回了

microsoft.visualbasic

，错误的此属性是否可以返回更详细的信息

下面是我的代码：

 Public Sub SendErrorReport(ByVal ErrorObject As Microsoft.VisualBasic.ErrObject, ByVal Routine As String)
    'On Error GoTo Err

    Dim Recipient As String = "email1; email2"

    ' Create an Outlook application.
    Dim oApp As Outlook._Application
    oApp = New Outlook.Application()

    ' Create a new MailItem.
    Dim oMsg As Outlook._MailItem
    oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
    oMsg.Subject = "Notitia software - Error report"
    oMsg.Body = "Error occurred at " & Format(Now.Hour, "00") & ":" & Format(Now.Minute, "00") & " in " & Routine & ". Error no." & Str(ErrorObject.Number) & " - " & ErrorObject.Description & vbCr & vbCr & " - Error Line: " & ErrorObject.erl
    ' TODO: Replace with a valid e-mail address.
    oMsg.To = Recipient

    ' Send
    oMsg.Send()

    ' Clean up
    oApp = Nothing
    oMsg = Nothing

    Exit Sub
Err:
    MsgBox("Error in " & Routine & ". Error no." & Str(ErrorObject.Number) & " - " & ErrorObject.Description)

End Sub

---

因此，本质上，我正在寻找一种方法来增加有关此sub可以发送给其收件人的错误的信息。非常感谢你的帮助

使用

Try Catch

而不是在错误转到

时使用
的旧VB6/VBA方式。异常
StackTrace
将为您提供所需的信息
 您使用Microsoft.VisualBasic.ErrorObject而不是System.Exception的原因是什么？会有哪些信息？错误是由VB6或VBA代码生成的？据我所知，vb.net代码与VB6和VBA不同。如果不是，那么我期待vb6，我在visual Studio 2005中，在vb.net v2框架中编写-这些有帮助吗？我将查看system.exception，看看这是否有助于解决此问题。