(VBA) Range.Value = String still returns numeric

[gifariz]

Hi all. I have simple question but couldn't solve it.
I want to return a Variant array with String data (Variant/String) into sheet, but it keeps being written as numeric in the sheet.
I could actually use text conversion function in sheet, but it would be great if the vba could return it as String directly.

Here is the code example:

Sub trial()
Dim Data()
ReDim Data(1 To 2, 1 To 1)
Data(1, 1) = 1      'Integer
Data(2, 1) = "1"    'String
Range("A1:A2").Value = Data
End Sub

Thank you in advance.

 

[JoeMo]

Sub trial()
Dim Data()
ReDim Data(1 To 2, 1 To 1)
Data(1, 1) = "'" & 1     'String
Data(2, 1) = "'" & "1"   'String
Range("A1:A2").Value = Data
End Sub

 

[frabulator]

You could also do this:

Sub InserVar()

    Dim iv As Integer
    iv = 1
    
    Cells(1, 1).Value = CStr(iv)
    Cells(2, 1).Formula = "=" & iv
    

End Sub

 

[Alex Blakenburg]

And since it is always good to have options:
(format the cells as Text)

Sub trial()
Dim Data()
ReDim Data(1 To 2, 1 To 1)
Data(1, 1) = 1      'Integer
Data(2, 1) = "1"    'String

With Range("A1:A2")
    Range("A1:A2").NumberFormat = "@"
    Range("A1:A2").Value = Data
End With
End Sub

 

[gifariz]

Wow haha, thank you all for your answers.
I will pick @JoeMo 's answer, without reducing the helpfulness of other's answers.

Special thank you @frabulator , for the inspiration of plotting 3D scatter in excel, I manage to make transformation formula of the graphical projection.