Найти номера всех отрицательных элементов массива

otvet=""
for i=lbound(a) to ubound(a)
  if a(i) < 0 then otvet = otvet & i & "  "
next i
 
if len(otvet) = 0 then
  msgbox "takih netu"
else
  msgbox otvet
end if

max=-999999
for i=lbound(a,1) to ubound(a,1)
  for j=lbound(a,2) to ubound(a,2)
    if a(i,j) > max then max=a(i,j)
  next j
next i
 
otvet=""
for i=lbound(a,1) to ubound(a,1)
  for j=lbound(a,2) to ubound(a,2)
    if a(i,j) = max then otvet = otvet & i & "; " & j & vbcrlf
  next j
next i
msgbox otvet

Private Sub Command1_Click()
Dim i, otvet, n As Integer, a()
n = InputBox("N")
ReDim a(1 To n)
For i = 1 To n
a(i) = InputBox(i)
Next i
otvet = ""
For i = 1 To n
  If a(i) < 0 Then otvet = otvet & i & "  "
Next i
 
If Len(otvet) = 0 Then
  MsgBox "takih netu"
Else
  MsgBox otvet
End If
End Sub

Private Sub Command1_Click()
Dim i, otvet, n As Integer, m As Integer, a() As Single
n = InputBox("N")
m = InputBox("M")
ReDim a(1 To n, 1 To m) As Single
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("element : " & i & j)
Next j
Next i
Max = a(1, 1)
For i = 1 To n
For j = 1 To m
If a(i, j) > Max Then Max = a(i, j)
Next j
Next i
For i = 1 To n
For j = 1 To m
If a(i, j) = Max Then otvet = otvet & i & ";" & j & Chr(13) & Chr(13)
Next j
Next i
MsgBox otvet
End Sub

Private Sub Command1_Click()
Dim i, j, otvet, n As Byte, m As Byte, a() As Single, indx As Byte
n = InputBox("N")
m = InputBox("M")
ReDim a(1 To n, 1 To m) As Single
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("element : " & i & j)
otvet = otvet & a(i, j) & Space(2)
Next j
otvet = otvet & Chr(13) & Chr(13)
Next i
MsgBox "Matrix : " & Chr(13) & Chr(13) & otvet
Min = a(1, 1)
indx = 1
For i = 1 To n
For j = 1 To m
If a(i, j) < Min Then Min = a(i, j): indx = j
Next j
Next i
If indx <> m Then
For i = 1 To n
For j = indx To m - 1
a(i, j) = a(i, j + 1)
Next j
Next i
ElseIf indx = m Then
ReDim Preserve a(1 To n, 1 To m - 1)
End If
ReDim Preserve a(1 To n, 1 To m - 1)
otvet = ""
For i = 1 To n
For j = 1 To m - 1
otvet = otvet & a(i, j) & Space(2)
Next j
otvet = otvet & Chr(13) & Chr(13)
Next i
MsgBox "Matrix : " & Chr(13) & Chr(13) & otvet
End Sub