How do I shorten VB code in Visual Studio 2012?

If I have a line of VB code in Studiao 2012 like this:

s_String = Application.ActiveProject.Name

or like this:

l_Resources = Application.ActiveProject.ResourceCount

How can I define a shortcut (something like #Define) to be able to do this:

s_String = AP.Name

l_Resources = AP.ResourceCount

Thanks

l_Number_Of_Resources = Application.ActiveProject.ResourceCount