Собственно вот решение
в реестре читаем ключ:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
"AppData"="D:\Documents and Settings\User_name\Application Data"
Можно еще через переменную %appdata%, но это несколько проблематично т.к. переменная консольная и как получить ее значение в прогу на VB я не знаю.
Может какая нибудь стандартная функция есть для этого, а то я тут велосипеды изобретаю
