Try This,
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Readtxt As String = "1,2,3,4,5"
Dim arrTxt() As String = Split(Readtxt, ",")
Dim arrLength As Integer = arrTxt.Length
Dim arrNumber(arrLength - 1) As Integer
For i As Integer = 0 To arrLength - 1
arrNumber(i) = Integer.Parse(arrTxt(i))
Next
End Sub