public class Test public Shared Sub Main Console.WriteLine(My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData) End SubEnd class