Help with reading text

[jmcilhinney]

'Get all the lines from the file.
Dim lines As String() = IO.File.ReadAllLines("file path here")
 
'Discard all but the last four lines.
lines = lines.Skip(lines.Length - 4).ToArray()
 
For Each line As String In lines
    'Split the line on the pipes.
    Dim fields As String() = line.Split(","c)
 
    'Get the User Name field.
    Dim userNameField As String = fields.Single(Function(f) f.TrimStart().StartsWith("User Name"))
 
    'Split the field into name and value.
    Dim fieldParts As String() = userNameField.Split(":"c)
 
    'Get the field value.
    Dim userName As String = fieldParts(1).Trim()
 
    MessageBox.Show(userName, "User Name")
Next