The Code

​

 

 

 

 Public Class Form45

​

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

​

        Dim Phrase1 As String
        Dim Length1 As Integer
        Dim Counter As Integer

​

        Phrase1 = TextBox1.Text
        Length1 = Len(Phrase1)

​

        For Counter = 1 To Length1
            ListBox1.Items.Add(" " & Asc(Mid(Phrase1, Counter, 1)))
            ListBox2.Items.Add(" " & Mid(Phrase1, Counter, 1))
            ListBox3.Items.Add(" " & Counter)

        Next

​

    End Sub

​

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

​

        TextBox1.Text = ""
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()

​

    End Sub

​

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

​

        Form41.Show()
        Me.Hide()

​

    End Sub

End Class