How to store variable data into an array - help on arrays

The quickest and easiest way :-

Dim FullDBArray
Sub ArrayEx()
Dim ShtName as string
    ShtName = "Data"
    FullDBArray = Sheets(ShtName).Range("A11:J" & Sheets(ShtName).Cells(Rows.Count, "A").End(xlUp).Row)
End Sub

Amend the red to suit

Hi mandukes,
maybe something like this

Sub ertert()
Dim dig&, x() As Byte, y(), i&, k&
dig = 348565678
x() = CStr(dig): ReDim y(1 To UBound(x), 1 To 1)
For i = 0 To UBound(x) Step 2
    k = k + 1: y(k, 1) = Chr(x(i))
Next i
Range("A1").Resize(k).Value = y()
End Sub

or

Sub ertert2()
Dim dig&, y(), i&
dig = 348565666
ReDim y(1 To Len(CStr(dig)), 1 To 1)
For i = 1 To Len(CStr(dig))
     y(i, 1) = Mid(dig, i, 1)
Next i
Range("A1").Resize(i - 1).Value = y()
End Sub