Constructed string and pas it as an argument

I have following code. Which selects shapes present on sheet.

 Sub shapegroup()
    Dim wx As Worksheet
    Set wx = ActiveSheet

 Dim srng As ShapeRange
 Set srng = wx.Shapes.Range(Array(1, 2, 3))
 srng.Select
 End Sub

I would like to constuct string of numbers and than pas it as an argument to array liket his

 Dim strg As String
For i = 1 To 100
      strg = strg & ", " & i
Next i
Debug.Print strg

Dim srng As ShapeRange
Set srng = wx.Shapes.Range(Array(strg))

Is it somehow possible? Maybe vector or some different approuch?