Data not yet avaiable problem!

[Kamran Ali]

I have the following code in a .vb file (.NET Frame work
1.1 using MSXML 4.0)

'******************************************
Public Function XMLHttpOpen(ByVal strURL As String,
Optional ByVal strUserName As String = Nothing, Optional
ByVal strPwd As String = Nothing) As String
Dim objXML As New MSXML2.XMLHTTP
Dim strError as String
Try
objXML.open("GET", strURL, False, strUserName,
strPwd) 'varASYNC=TRUE
objXML.send()
Do While Not objXML.readyState = 4
System.Threading.Thread.Sleep(100)
Loop
**********************FAILS ON THEFOLLOWING LINE***********
strError = ReadXMLData(objXML.responseText)
************************************************** ******
If strError = Nothing Then
XMLHttpOpen = "XML File(s) copied
successfully!"
Else
Return strError
End If
Catch xme As System.Xml.XmlException
XMLHttpOpen = xme.Message
Catch ce As
System.Runtime.InteropServices.COMException
XMLHttpOpen = ce.Message
Finally
objXML = Nothing
End Try
End Function
************************************************** *****

The error thrown at the responseText Method is
"The data necessary to complete this operation is not yet
avaialable'

Yet when I call this function on .ASPX page it runs fine.
The error only pops up on a Windows Form or in a VBSCript
file.Any ideas?

Thanks in advance...
..