ต้องการเรียงข้อมูลใหม่ให้เป็น array ทำยังไงครับ...

Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim str As String = "1	1	6002	 1	FP	In	0	2013-11-04 15:06:37"
        Dim strArray As String() = Regex.Replace(str, "\t|\n|\r", " ").Split(New Char() {" "}, StringSplitOptions.RemoveEmptyEntries)
        Dim ArraySet(4) As String
        ArraySet(0) = strArray(2)
        ArraySet(1) = strArray(7)
        ArraySet(2) = strArray(8)
        ArraySet(3) = strArray(5)
    End Sub
End Class