Заменить минимальный по модулю отрицательный элемент массива первым элементом

Dim a(30) As Single
Private Sub Command1_Click()
Dim min As Integer
n = Val(Text1.Text)
v = Split(Text2.Text, " ")
min = a(1)
For i = 1 To n
a(i) = Val(v(i - 1))
If (a(i)) < min Then min = a(i)
Next i
Picture1.Print min
End Sub

Dim a() As String, c() As String
Private Sub Command1_Click()
a = Split(Text1) 'ïî óìîë÷àíèþ è òàê ïðîáåë
min = CInt(a(0))
For i = 0 To UBound(a)
    If CInt(a(i)) < 0 and  abs(CInt(a(i))) < min Then min = CInt(a(i)): i_min=i
Next i
Print min
 
a(min_i)=a(0)
End Sub
 
Private Sub Command2_Click()
a = Split(Text1)
k = CInt(text2)
For i = k - 1 To UBound(a)
    a(i) = Str(-CInt(a(i)))
Next i
End Sub
 
Private Sub Command3_Click()
c = Split(Text1)
ReDim a(UBound(c))
For i = 0 To UBound(c)
    a(i) = Str(IIf(i Mod 2 = 0, (i - 1) * CInt(c(i)), 2 * i * CInt(c(i))))
Next i
Print min
End Sub

t=""
For i = 0 To UBound(a)
    t=t & a(i) & " "
Next
print t

 If CInt(a(i)) < 0 And Abs(CInt(a(i))) < abs(min) Then min = CInt(a(i)): i_min = i

 If CInt(a(i)) < 0 And Abs(CInt(a(i))) < min Then min = CInt(a(i)): i_min = i

For i = UBound(a) - k To UBound(a)

For i =1-k To UBound(a)

if i Mod 2 = 0 Then a(i) = (i - 1) * CInt(c(i)) Else a(i) = 2 * i * (c(i))

a(i) = Str(IIf(i Mod 2 = 0, (i - 1) * CInt(c(i)), 2 * i * CInt(c(i))))

For i = UBound(a) - k + 1 To UBound(a)