Rozwiązanie charakteru przekraczającego w tablicy VBA

Sub TestStrLength()
    Dim s As String
    Dim i As Integer

    s = ""
    For i = 1 To 500
        s = s & "1234567890"
    Next i

    MsgBox s
End Sub
Strange Scarab