dowload file từ một đường Link bằng code vba

[Kakama123]

mong mọi người giúp đỡ. mình dùng một hàm này để dowload file từ một bạn trên diễn đàn chia sẻ. đã thành công. nhưng hiện muốn nâng cao hơn. mình muốn đọc kích thước file sẽ tải về, và muốn đọc kích thước file hiện tại đang tải được bao nhiêu. có cách nào, hay hàm nào không vậy mọi người. vì mình muốn làm một progress bar để người xem theo dõi quá trình tải. mong được hướng dẫn, dù nhỏ

Private Sub URL2File(ByVal URL As String, ByVal Folder2Save As String)
Dim objReq As Object
Dim FileName As String, path As String
If Right(Folder2Save, 1) <> "\" Then Folder2Save = Folder2Save & "\"
FileName = Mid(URL, InStrRev(URL, "/") + 1, Len(URL))
path = Folder2Save & FileName
Set objReq = CreateObject("MSXML2.XMLHTTP")
objReq.Open "GET", URL, False
objReq.send
If objReq.Status = 200 Then
With CreateObject("ADODB.Stream")
.Open
.Type = 1
.Write objReq.ResponseBody
.Position = 0
.SaveToFile path, 2
.Close
End With
End If
Set objReq = Nothing
End Sub