Download files from URL, unknown file names

Nothing thrilling:

Code:

---

Private Declare Function DownloadWebFile  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

Sub M_snb()
    DownloadWebFile 0, "http://www.google.com/intl/en/images/logo.gif", "G:\OF\GoogleLogo.gif", 0, 0
End Sub

---