Составить массив В из неположительныхэлементов массива А (15) Написать прогу в VBA

Sub Massiv()
Dim A(15) As Integer
Dim B(15) As Integer
Dim s As String
s = "A:"
For i = 1 To 15
A(i) = Int(40 * Rnd) - 20
s = s + Str(A(i)) + " "
Next i
s = s + Chr(10) + "B:"
j = 1
For i = 1 To 15
If A(i) <= 0 Then
B(j) = A(i)
s = s + Str(B(j)) + " "
End If
j = j + 1
Next i
MsgBox s
End Sub

massv a : 44 -97 35 66 1 -20 13 10 -57 -23 29 40 57 13 -43
massv b : -97 -20 -57 -23 -43
--------------------------------
massv a : 19 -88 37 -97 98 67 -22 96 -94 -57 -95 -99 62 60 68
massv b : -88 -97 -22 -94 -57 -95 -99
--------------------------------
massv a : -51 -32 -34 -37 -52 63 41 32 4 91 -84 -48 -62 -28 -72
massv b : -51 -32 -34 -37 -52 -84 -48 -62 -28 -72
--------------------------------
massv a : 99 -71 -47 41 28 73 -57 -20 -32 68 38 -5 85 -18 59
massv b : -71 -47 -57 -20 -32 -5 -18
--------------------------------
massv a : -11 -72 -98 46 88 -29 23 19 96 -57 93 36 -66 -34 -27
massv b : -11 -72 -98 -29 -57 -66 -34 -27
--------------------------------
massv a : 24 -86 45 18 -61 67 -5 -24 30 -97 -98 -47 -84 64 11
massv b : -86 -61 -5 -24 -97 -98 -47 -84
--------------------------------
massv a : -76 46 -96 -58 -83 40 -44 84 45 -73 21 -55 30 57 19
massv b : -76 -96 -58 -83 -44 -73 -55
--------------------------------
massv a : -82 -54 -58 56 35 12 -75 -83 28 -44 95 -9 8 -73 37
massv b : -82 -54 -58 -75 -83 -44 -9 -73
--------------------------------
massv a : -85 -15 -92 -6 11 -77 -84 -94 32 79 58 64 64 75 -95
massv b : -85 -15 -92 -6 -77 -84 -94 -95
--------------------------------
massv a : -44 -63 51 24 11 100 -74 39 71 -33 -48 -16 25 84 -80
massv b : -44 -63 -74 -33 -48 -16 -80
--------------------------------
massv a : -13 98 -18 41 -86 91 -49 -67 81 -30 62 24 77 25 -36
massv b : -13 -18 -86 -49 -67 -30 -36
--------------------------------
massv a : 97 -27 -79 10 59 -98 -26 -87 65 -75 -73 -33 85 95 -35
massv b : -27 -79 -98 -26 -87 -75 -73 -33 -35
--------------------------------
massv a : -47 -19 2 92 40 -49 48 78 30 -28 52 22 17 -84 -55
massv b : -47 -19 -49 -28 -84 -55
--------------------------------
massv a : 23 -44 -1 -100 15 -90 69 51 -7 -1 -100 82 -50 -34 27
massv b : -44 -1 -100 -90 -7 -1 -100 -50 -34
--------------------------------
massv a : -24 -33 -83 -79 -29 -34 -66 33 -17 16 -52 10 27 -38 -57
massv b : -24 -33 -83 -79 -29 -34 -66 -17 -52 -38 -57
--------------------------------
massv a : 54 -96 56 93 -30 -27 51 93 6 76 -47 61 -77 -88 -56
massv b : -96 -30 -27 -47 -77 -88 -56
--------------------------------
massv a : -20 62 -95 52 64 96 -9 52 66 50 -17 -50 -15 -24 24
massv b : -20 -95 -9 -17 -50 -15 -24
--------------------------------
massv a : 16 2 -25 -47 84 -15 55 90 -5 68 31 -61 -28 6 -60
massv b : -25 -47 -15 -5 -61 -28 -60
--------------------------------
massv a : -49 48 -46 -1 -60 -10 -69 86 -58 -98 88 17 94 67 4
massv b : -49 -46 -1 -60 -10 -69 -58 -98
--------------------------------
massv a : -69 68 77 47 54 -12 -2 98 43 7 24 -85 -53 10 -55
massv b : -69 -12 -2 -85 -53 -55
--------------------------------
massv a : -12 -71 63 -44 3 -96 29 25 27 10 -14 -18 -10 -37 -31
massv b : -12 -71 -44 -96 -14 -18 -10 -37 -31
--------------------------------
massv a : -98 -68 52 -71 -17 24 23 -14 62 78 69 45 -31 12 -19
massv b : -98 -68 -71 -17 -14 -31 -19
--------------------------------
massv a : 50 -29 -4 11 38 97 63 74 77 54 92 -54 -76 5 27
massv b : -29 -4 -54 -76
--------------------------------
massv a : -29 -22 31 -77 -54 60 -1 17 -5 -49 -83 32 -23 59 -88
massv b : -29 -22 -77 -54 -1 -5 -49 -83 -23 -88
--------------------------------
massv a : -33 80 42 14 8 -24 -15 -67 -65 88 -78 -80 -13 -68 7
massv b : -33 -24 -15 -67 -65 -78 -80 -13 -68
--------------------------------
massv a : 65 -11 -43 86 49 39 18 -97 -4 70 -17 -49 76 23 95
massv b : -11 -43 -97 -4 -17 -49
--------------------------------
massv a : -34 47 -11 3 -23 30 92 -24 14 68 31 57 -29