If I understand your question, then you can use the Windows API. Try the 
following. You will need to read the documentation and determine more 
details, but I hope this is enough to get you started.


Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias 
"SHGetSpecialFolderPathA" _
    (ByVal hwndOwner As Long, ByVal pszPath As String, ByVal nFolder As 
Long, ByVal fCreate As Long) As Long

Private Const CSIDL_PROGRAMS = 2
Private Const CSIDL_PERSONAL = 5
Private Const CSIDL_MYMUSIC = 13

Private Const MAX_PATH = 260

Public Sub Sample()
ShowPath CSIDL_PROGRAMS, "Programs"
ShowPath CSIDL_PERSONAL, "Documents"
ShowPath CSIDL_MYMUSIC, "Music"
End Sub

Private Sub ShowPath(PathID As Long, Title As String)
    Dim Buffer As String
    Dim rv As Long
Buffer = String$(MAX_PATH, vbNullChar)
rv = SHGetSpecialFolderPath(0, Buffer, PathID, 0)
If rv = 0 Then
    MsgBox "Error"
    Exit Sub
End If
Buffer = Left(Buffer, InStr(Buffer, vbNullChar))
MsgBox Title & ": " & vbCrLf & Left(Buffer, InStr(Buffer, vbNullChar))
End Sub