Imports System

Public Module Module1

    Public Sub Main()

        Dim TheData (0 to 8) as Integer

        TheData (0)= 20

        TheData (1)= 3

        TheData (2)= 4

        TheData (3)= 8

        TheData (4)= 12

        TheData (5)= 99

        TheData (6)= 4 

        TheData (7)= 26

        TheData (8)= 4

    End Sub

    Sub InsertionSort (ByRef TheData() As Integer)

        Dim NextValue As Integer

        Dim Inserted As Integer

        Dim DataToInsert As Integer

        For Count= 0 to 8

        DataToInsert= TheData(Count)

        Inserted=0

        NextValue= Count-1

        WHILE (NextValue >= 0 AND Inserted<>1)

            IF (DataToInsert < TheData (NextValue)) THEN 

                TheData(NextValue+1) = TheData(NextValue)

                NextValue = NextValue - 1

                TheData (NextValue + 1) = DataToInsert

            ELSE

                Inserted = 1

            END IF  

        END WHILE

    Next

End sub

Sub PrintArray(TheData() As Integer)

    FOR count= 0 to 8

    console.writeline(TheData(count))

  NEXT

End sub 

End Module