“Решение характера, превышающего в массиве VBA” Ответ

Решение характера, превышающего в массиве 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