"Wayne M J" <not@home.nor.bigpuddle.com> wrote in message
news:OqJzrQyFEHA.3456@tk2msftngp13.phx.gbl...
> Sub mySub ()
> MySub2()
> End Sub
>
> Sub MySub2()
> Console.WriteLine("I was called by...")
> End Some
>
> Using the above example, is there anyway for MySub2 to identify its
calling
> parent?
>
> If so, how?
>
>

> Sub mySub ()
> MySub2()
> End Sub
>
> Sub MySub2()
> Console.WriteLine("I was called by...")
> End Some
>
> Using the above example, is there anyway for MySub2 to identify its
calling
> parent?
>
> If so, how?
>
>

"Ken Tucker [MVP]" <vb2ae@bellsouth.net> wrote in message
news:uLS4xsyFEHA.3324@TK2MSFTNGP09.phx.gbl...
> Hi,
>
> Maybe this will help.
>
> Private Sub MySub2()
>
> Dim S As New StackTrace(True)
>
> Dim strLine() As String = S.ToString.Split(ControlChars.NewLine)
>
> Debug.WriteLine(strLine(2))
>
> End Sub