Chuck this into a blank form and you should get the general idea
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SiteURI As New Uri("http://www.xtremedotnettalk.com/showthread.php?p=465032#post465032")
Dim wc As New WebClient
wc.DownloadStringAsync(SiteURI)
AddHandler wc.DownloadStringCompleted, AddressOf Test
End Sub
Private Sub Test(ByVal sender As Object, ByVal e As DownloadStringCompletedEventArgs)
Dim newstring As String = e.Result
End Sub