When you issue the GetChunk command for the Inet control, don't
forget to wait until it's done before continuing with code that
manipulates the return values. Depending on the user's connection
speed, the GetChunk method may take several seconds. To give the
method a chance to complete before executing the rest of the code,
use the DoEvents keyword, like so:
Private Function GetData()
Dim vData As Variant
Dim strTemp As String
Do
  vData = Inet1.GetChunk(256, icString)
  DoEvents
  If Len(vData) Then
    strTemp = strTemp & vData
    lblBytesReceived.Caption = CStr(Len(strTemp))
  End If
Loop While Len(vData)
GetData = strTemp
End Function