Поменять местами первый положительный элемент с первым отрицательным элементом - VB

Sub jj()
Dim a(1 To 9), n As Integer, p As Integer, m As Integer, t As Integer, msg As String
For n = 1 To 9
  a(n) = Int(Rnd * 41) - 20 'áåðåì Г§Г*Г*Г·ГҐГ*ГЁГҐ îò 0 äî 40.999999, îòáðГ*ñûâГ*ГҐГ¬ äðîáГ*ГіГѕ Г·Г*Г±ГІГј, îòГ*ГЁГ¬Г*ГҐГ¬ 20
  If a(n) > 0 And p = 0 Then p = n
  If a(n) < 0 And m = 0 Then m = n
Next
msg = Join(a)
t = a(p)
a(p) = a(m)
a(m) = t
MsgBox msg & vbCrLf & Join(a)
End Sub