Dim test As String = "John_Liz_Today_99_Finished_Weekday"
Dim parts As String() = test.Split("_"C)
If parts.Length >= 6 Then
MessageBox.Show(parts(0))
MessageBox.Show(parts(1))
MessageBox.Show(parts(2))
MessageBox.Show(parts(3))
MessageBox.Show(parts(4) & "_" & parts(5))
End If