Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim str As String = "Test"
      Dim st As New StackTrace(True)
 
      Try
         Dim c As Char = str.Chars(20)
 
      Catch ex As Exception
         Debug.WriteLine(st.GetFrame(0).GetFileLineNumber)
      End Try
   End Sub