This should give you an idea on how to work with the strings.
Private Sub SplitStrings(s As String)
Dim lines() As String = Split(s, "____")
For Each line As String In lines
Dim perLineTokens() As String = line.Split("___")
Next
End Sub