How to put range into redimed array?

Hi,

i have code like here:

Sub test()

  Dim a() As String
  
  ReDim a(1 To 6, 1 To 5)
  
  Dim rng As Range
  
  Set rng = ActiveSheet.Range("A2:E7")
  
  a = rng

End Sub

which throws an error about type.

It is possible to assign to string array range?
Or i have to loop?

the purpose to have array as string it to not loose leading zeros while outputting variant array.

Thanks!,
Best,
Jacek