Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, 

	ByVal e As System.EventArgs) Handles Button1.Click

        Dim siteName As String

        Dim singleChar As Char

        siteName = "HTTP://NET-INFORMATIONS.COM"

        For Each singleChar In siteName

            MsgBox(singleChar)

        Next

    End Sub

End Class