Разбить строки текстового файла на подстроки

Dim FL As IO.FileInfo = New IO.FileInfo("base.txt")
        Dim i As Integer
        Dim x As Integer = 0
        Dim tmpStr1 As String 'tmpStr2, tmpStr3 As String
        Dim F_d() As String = IO.File.ReadAllLines("base.txt", System.Text.Encoding.UTF8)
        If FL.Exists Then 'проверяем создана ли база с паролями
            MsgBox("ok")
 
            For i = 0 To F_d.Length - 1
                For Each tmpStr1 In F_d(i).Split(":") 'user_name:user_id:AК:AS
                    Select Case x
                        Case 0
                            sUser(i) = tmpStr1
                        Case 1
                            sUserID(i) = tmpStr1
                        Case 2
                            sSnglAK(i) = tmpStr1
                        Case 3
                            sSnglAS(i) = tmpStr1
                    End Select
                    x += 1
                Next
                x = 0
            Next
        Else
            ' File.Create("base.txt")
        End If
 
        For i = 0 To F_d.Length - 1
            ListBox1.Items.Add(sUser(i))
            ComboBox1.Items.Add(sUser(i))
        Next