Dim list As List(Of Integer) = Enumerable.Range(1, 13).ToList()
Dim idx As Integer = 0
Do While list.Count > 1
    idx += 4
    idx = idx Mod list.Count
    list.RemoveAt(idx)
Loop

Dim arr As New List(Of Integer) From {11, 24, 51, 112, 3, 6, 1, 67, 8, 9, 63, 0, 54, 23, 72, 89, 564, 23, 91, 87}
        Dim Stp As Integer = 5
        Dim StepsDone As Integer = 0
        Dim LastIndex As Integer = 0
        While

Dim llist As New LinkedList(Of Integer)(Enumerable.Range(1, 50).ToList)
Dim Stp As Integer = 5
Dim StepsDone As Integer = 0
Dim cur As LinkedListNode(Of Integer) = llist.First
Do While llist.Count > 1
    StepsDone += 1
    If cur.Next Is Nothing Then
        cur = llist.First
    Else
        cur = cur.Next
    End If
    If StepsDone = Stp Then
        If cur.Previous Is Nothing Then
            llist.Remove(llist.Last)