In an array of insert e-t after the first half-element

A simple program (source code), perform simple operations with a one-dimensional array.

Text of the task: "The array element to insert after the first positive element."

The program is implemented in an environment Visual Basic 6.x