This is my code so far::

Code:
Dim Array(7) As Char
        Dim myman As String = TextBox1.Text
        Dim capcount As Integer = 0

        Array = myman.ToCharArray


        If TextBox1.Text = TextBox2.Text Then
            If TextBox1.Text = "" Then
                MessageBox.Show("mhm")
                Stop
            End If
...