ListArray in VBA

Question

I try to write strings into a list

Sub test()
Dim x() As String
For j = 1 To 5
    x(j) = "Number" & j
Next j
End Sub

and get t