Записать в массив X подряд отрицательные элементы матрицы В - VB

Sub Matrix()
    Dim B(1 To 7, 1 To 5) As Single, X() As Single, i As Integer, j As Integer
    For i = 1 To 7
        For j = 1 To 5
            B(i, j) = FormatNumber(Cos(i + j), 1)
            sStr = sStr & B(i, j) & vbTab
            If B(i, j) < 0 Then
                iCnt = iCnt + 1
                ReDim Preserve X(1 To iCnt)
                X(iCnt) = B(i, j)
            End If
        Next
        sStr = sStr & vbNewLine
    Next
    sStr = sStr & "-----" & vbNewLine
    For i = 1 To iCnt
        sStr = sStr & X(i) & " "
    Next
    MsgBox sStr
End Sub