I will just leave a simple example of a linked list class.
VB.NET:
Public Class Node
Public NextNode As Node
Public Val As String
End Class
Public Class List
Public FirstNode As Node
Public Sub Add(ByVal val As String)
'Add new node at the beginning of the list
Dim NewNode As New Node
If IsNothing(FirstNode) Then
FirstNode = NewNode
NewNode.Val = val
Else
NewNode.NextNode = FirstNode
FirstNode = NewNode
NewNode.Val = val
End If
End Sub
Public Function Read() As List(Of String)
Dim res As New List(Of String)
Dim act As Node
act = FirstNode
Do Until (IsNothing(act))
res.Add(act.Val)
act = act.NextNode
Loop
res.Reverse()
Return res
End Function
End Class