loop through all string characters

Below code snippet will prompt you for a string and when you enter string and press ok, it will show all the single by single characters on system console.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim dummyString As String
        Dim i As Integer
        dummyString = InputBox("Enter any String ")

        ' looping through all chars of string
        For i = 0 To dummyString.Length - 1
            Console.WriteLine(dummyString.Chars(i))
        Next
    End Sub
End Class

Output (after inputting sayonara)

s
a
y
o
n
a
r
a