VB6 - How to get Filename in AsyncRead Downloading Method?

VB6 - How to get Filename in AsyncRead Downloading Method?

I'm trying to download files which have no Normal [FILENAME].[EXTENSION]
in URL, Using AsyncRead Downloading Method. There is no problem in
Downloading process (It is Downloading file completely and save the file
into Temp files). So i want to get Real Filename with Extension to save it
to another place same as original file which is for downloading.
I can get file name while the URL is something like this:
Http://Host.com/Path/MyDoc.txt ( So i can get File name "MyDoc" and
extension ".txt" easily because it specified at the URL )
But when downloading URL is something like this:
Http://Host.com/Path/download.php?File=9
I can not get the Real File name and Extension. Is there any way to get
them on URLs like this?
Note: There is no problem in Downloading Process and I can download both
of above files Completely. I Just want to get Filename and Extension.