Разделение последовательности

Dim chisla As String = ""  'последовательность:хочу уточнить, что писать после знака "="
Dim newMassiv() As String      ' новый массив
newMassiv = Split(chisla, " ")     ' разделение последовательности
 
 
Dim number As Integer
number = newMassiv.Count    'количество элементов в массиве
 
Dim perevod As Integer
perevod = CInt(newMassiv(number-1))   'изменение типа String на Integer

        Dim chisla As String = "12.3 43 32,12 23 qwe"  'последовательность:хочу уточнить, что писать после знака "="
        Dim newMassiv() As String      ' новый массив
        newMassiv = Split(chisla, " ")     ' разделение последовательности
 
        Dim number As Integer
        number = newMassiv.Count    'количество элементов в массиве
 
        Dim perevod(number - 1) As Integer
        For n As Integer = 0 To number - 1
            perevod(n) = Val(newMassiv(n)) 'изменение типа String на Integer, на выходе: "12 43 32 23 0"
        Next

 Dim chisla As String = txtI.Text
        Dim newMassiv() As String      ' новый массив
        newMassiv = Split(chisla, " ")     ' разделение последовательности
 
        Dim number As Integer
        number = newMassiv.Count    'количество элементов в массиве
 
        Dim perevod(number - 1) As Integer
        For n As Integer = 0 To number - 1
            perevod(n) = Val(newMassiv(n)) 'изменение типа String на Integer, на выходе: "12 43 32 23 0"
        Next

Public Interface I1
 
    Property I As Integer
    Property O As Integer
 
    Function Test()
   
End Interface

Public Class C1
    Implements I1
 
 
    Private intI As Integer
    Private intO As Integer
    
 
    Public Property I As Integer Implements I1.I
        Get
            Return intI
        End Get
        Set(ByVal value As Integer)
            intI = value
        End Set
    End Property
 
    Public Property O As Integer Implements I1.O
        Get
            Return intO
        End Get
        Set(ByVal value As Integer)
            intO = value
        End Set
    End Property
 
 
    Public Function Test() As Object Implements I1.Test
        Dim chisla As String = txtI.Text  
        Dim newMassiv() As String      ' новый массив
        newMassiv = Split(chisla, " ")     ' разделение последовательности
 
        Dim number As Integer
        number = newMassiv.Count    'количество элементов в массиве
 
        Dim perevod(number - 1) As Integer
        For n As Integer = 0 To number - 1
            perevod(n) = Val(newMassiv(n)) 
        Next
 
        Return newMassiv
 
    End Function
    
End Class

Public Class Form1
 
    Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles btnTest.Click
 
        Dim getAnswer As Prj1.I1
        getAnswer = New Prj1.C1
 
        getAnswer.I = txtI.Text
 
        txtO.Text = getAnswer.Test
 
    End Sub
End Class

Dim chisla As String = txtI.Text

getAnswer.I = txtI.Text

Dim Mass() As String = Split(TextBox1.Text, " ")
        MsgBox("Количество элементов массива: " & Mass.Count)
        For I As Integer = 0 To Mass.Count - 1
            MsgBox(I + 1 & "-й элемент массива: " & Mass(I))
        Next

   Dim Mass() As String = Split(Sequence, " ")
   MsgBox("Количество элементов массива: " & Mass.Count)
 
   Dim taisArv(Mass.Count) As Integer
   Dim i As Integer
 
        For i = 0 To Mass.Count - 1
            taisArv(i) = CInt(Mass(i))
        Next i
 
    MsgBox("Answer " & taisArv(0))