Скачать и открыть txt файл

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
 
Function DownloadText(sSourceUrl As String) As String
 Dim FileNum As Long
 Dim sLocalFile As String
 Dim TempText As String
 
 Randomize
 sLocalFile = App.Path & "\" & CStr(Rnd) & ".txt"
 URLDownloadToFile 0&, sSourceUrl, sLocalFile, 16, 0&
 InputBox "", "", sLocalFile 'Debug
 
 'Сейчас будет ошибка 
 Open sLocalFile For Input As #FileNum
 Do Until EOF(FileNum)
  Line Input #FileNum, TempText
  DownloadText = DownloadText & vbNewLine & TempText
 Loop
 Close #FileNum
 MsgBox DownloadText
 
End Function

'Сейчас будет ошибка?
FileNum=freefile
 Open sLocalFile For Input As #FileNum

DownloadText = Input$(LOF(FileNum), FileNum)