Dim source As String = "1   Grapes  5.99"
Dim split As String() = source.Split(ControlChars.Tab)
Dim item As String = split(1)
Console.WriteLine(item)