Take a look at the System.Diagnostics.StackTrace class:

Dim s As New System.Diagnostics.StackTrace(True)
        Return s.GetFrame(1).GetMethod().ReflectedType.FullName + "." + s.GetFrame(1).GetMethod.Name

>Hi.
>
>Sorry. English is not my first language.
>
>Exist something like VFP functions SYS(2015), PROGRAM() and LINEO() in VB.NET
>
>Thanks.