For Each

 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