webresponse in VB,NET

[Mamatha]

Hi

I have developed one application in VB.NET which extracts
the source code of Web pages.I gave a bunch of URLs in a
listbox while at the time of response from the web it was
struckup.Someti mes it gives output but sometimes it was
struckup,i don't know the reason why it was strucked.
If u know please let me know.Here it my source code.
Public Function GetSource(ByVal url As String) As String
Dim strURL As String
Dim fsoStream As Scripting.TextS tream
Dim mFso As New Scripting.FileS ystemObject
Dim s, s1, str1 As String

Dim Source As New System.Text.Str ingBuilder

Dim WebResponse As Net.WebResponse =
Net.WebRequest. Create(url).Get Response
Dim StreamReader As New IO.StreamReader
(WebResponse.Ge tResponseStream (),
System.Text.Enc oding.ASCII)

Do
Source.Append(S treamReader.Rea dLine() + vbCrLf)
Loop Until StreamReader.Re adLine() Is Nothing

StreamReader.Cl ose()

'Return Source.ToString ()
TextBox2.Text = Source.ToString ()

fsoStream = mFso.OpenTextFi le
(Application.St artupPath & "\example.t xt",
Scripting.IOMod e.ForWriting)

fsoStream.Write (TextBox2.Text)
fsoStream.Close ()
fsoStream = Nothing

End Function