Как вывести элементы матрицы в строку, начиная с ячейки А1. - VB

Sub Main()
Dim A(1 To 5, 1 To 5) As Single, B(1 To 25) As Single
Dim c As Byte
c = 1
For i = 1 To 5
For j = 1 To 5
A(i, j) = 100 * Rnd
B(c) = A(i, j)
c = c + 1
Next j
Next i
For i = 1 To 25
Cells(1, i) = B(i)
Next i
End Sub