String Manipulation

Public Class Form1
Dim myurl As String = "http://www.google.com"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = myurl.IndexOf(":")
Label2.Text = Mid(myurl, 1, 4)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label3.Text = myurl.IndexOf("//")
Label4.Text = Mid(myurl, myurl.IndexOf("//") + 3, myurl.IndexOf(".") - myurl.IndexOf("//") - 2)
Label5.Text = Mid(myurl, myurl.IndexOf("//") + 3, myurl.IndexOf(".") - myurl.IndexOf("//") - 0)
End Sub
End Class