I used Chris's HttpWrapper it's in Releases.

You need A:
Textbox
2 labels
1 Button

Lable 2 will be the one that shows you the Username
and Label 1 will just be on top of the textbox Saying " UserID: "

anyways here is the code:

Code:
Public Wrapper as new HTTPwrapper
public strHTML as string
Code:
        strHTML = Wrapper.Get("http://www.gaiaonline.com/profiles/" + TextBox1.Text)

        Dim UserNM As String
        UserNM = Wrapper.Between(strHTML, "<title>Viewing ", "&")
        Label2.Text = "Username :" + UserNM
DOWNLOAD!