Dim arr() As Integer = {100, 300, 200, 400, 50, 100}
            Dim MIN As Integer = arr(0)
            Dim IndexMerker As Integer = 0
            For b = 0 To arr.Length - 1
                If MIN > arr(b) Then
                    IndexMerker = b
                    MIN = arr(b)
                End If
            Next