Pasted

Module Module1
 
    Sub Main()
        'Binary at http://atbash.blob.core.windows.net/downloads/PFDirHelper.exe
        'Dim DefaultPath As String
 
        If Environment.Is64BitOperatingSystem Then
            Console.WriteLine("I am a 64-bit Operating Systems.")
        Else
            Console.WriteLine("I am not a 64-bit Operating Systems.")
        End If
 
        If Environment.Is64BitProcess Then
            Console.WriteLine("I am a 64-bit Process.")
        Else 
            Console.WriteLine("I am not a 64-bit Process.")
        End If
 
        Dim  fullPath = Environment.GetEnvironmentVariable("ProgramFiles")
 
        Console.WriteLine("My program files directory is: " + fullPath)
 
        Console.ReadLine()
 
    End Sub
 
End Module