Программа последние семь - Visual Basic .NET

Формулировка задачи:

Разработайте программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0, а затем выводит последние 7 введённых чисел в том же порядке, в каком они вводились.

Не используйте массив длиной более 7 элементов Также нельзя перед вводом каждого нового числа освобождать для него место, стирая предыдущие.

Есть код,но он затирает предыдущее число.Помогите сделать ,чтобы он не затирал предыдущее число

Module Module1
    Sub Main()
        Dim m(7), a, c As Integer
        Console.WriteLine("Введите число: ")
        c = 0
        Do
            a = Console.ReadLine
            If a = 0 Then
                For q = 0 To 6
                    If m(q) <> 0 Then Console.Write(m(q) & " ")
                Next
            Else
                If c > 6 Then
                    For i = 0 To 5
                        m(i) = m(i + 1)
                    Next
                    m(6) = a
                Else
                    m(c) = a
                End If
            End If
            c += 1
        Loop Until a = 0
        Console.ReadLine()
    End Sub
End Module

Решение задачи: «Программа последние семь»

textual
                            Листинг программы 
                        

                            Sub Main()
    Dim m(6), a, ii As Integer
    Console.WriteLine("Введите число: ")
    Do While True
        ii += 1
        a = Console.ReadLine
        If a = 0 Then
            Console.WriteLine("Результат:")
            Array.ForEach(Of Integer)(m, AddressOf Console.WriteLine)
            Exit Do
        End If
        If ii > 7 Then
            Array.Copy(m, 1, m, 0, m.Length - 1)
            m(6) = a
        Else
            m(ii - 1) = a
        End If
    Loop
    Console.ReadLine()
End Sub
                        