TextFileの区切り

フォルダの中に、ファイルを読み込んでから、LISTVIEW を表示したいですが、
同じ行内の複数のデリミタで文字列の区切があります。
2016/05/15 21:59:13,739 [7] INFO - Login.User_Aut - o03dx1n Unknown - Login: KST028

     Day        2016/05/15
     Time       21:59:13,739
     LogType    [7] INFO
     MethodName Login.User_Aut
     SessionID  o03dx1n Unknown
     LoginID    Login: KST028

Message
下に Split にスペースを入りましたが、日付と時間,LogType だけ区切りできました。他のものが全部間違った項目が入りました。
どうすれば区切りできますか？
お教えてください。お願いします。

      'ファイルを読み込む
        OpenFileDialog1.ShowDialog()
        Dim filepath As String = OpenFileDialog1.FileName
        Dim inputstream As New IO.StreamReader(filepath)
        Dim newstr(2) As String
        Dim Day As Integer
        Dim Time As String
        Dim LogType As String
        Dim LoginID As String
        Dim Message As String
        Do While inputstream.Peek <> -1
        '区切り
        newstr = inputstream.ReadLine().Split(" ")

        Day = newstr(0)
        Time = newstr(1)
        LogType = newstr(2) & " " & newstr(3)
        LoginID = newstr(6)
        Message = newstr(7)

        '選択されたファイルを読み取り
        Me.LogListView.Items.Add(Day)
        Me.LogListView.Items.Item(LogListView.Items.Count - 1).SubItems.Add(Time)
        Me.LogListView.Items.Item(LogListView.Items.Count - 1).SubItems.Add(LogType)    
        Me.LogListView.Items.Item(LogListView.Items.Count - 1).SubItems.Add(Message)
    Loop

    inputstream.Close()
End Sub