新手求教怎么获取程序运行所在的文件夹

新手求教如何获取程序运行所在的文件夹
用Application.StartupPath 获取的是程序所在的debug的路径，，例如D:\aaa\bbb\ccc\bin\debug
但我只想获取程序所在的aaa的路径  也就是要D:\aaa\
请问VB.NET语句怎么写呢？高手指教下 
------解决思路----------------------
Dim arr = "D:\aaa\bbb\ccc\bin\debug".Split("\")
Din result = arr(0) & "\" & arr(1) & "\" & arr(2)