Sorry about that John...

Function GetDownloadsPath() As String

GetDownloadsPath = Environ$("USERPROFILE") & "\Downloads"


End Function