Array data types issue

See more:

VB

I want to read a sentence from a textbox characterwise and as soon as the space character comes the prevoiusly occured characters are to put in a label. I am having problems in array data types.

Here is the code.

Private Sub file_open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles file_open.Click

        Dim count As Integer = 0
        Dim objreader As New System.IO.StreamReader(file_name.Text)

        TextBox1.Text = TextBox1.Text & objreader.ReadLine & vbCrLf

        Dim myArray1() As Char = TextBox1.Text.ToCharArray()
        Dim myArray2 As List(Of Char) = New List(Of Char)


        For Each c As Char In myArray1
            If c <> " " Then
                myArray2.Add(c)
            Else
                id.Text = myArray2()           ' here is the issue
                Exit For
            End If
        Next

    End Sub