“Solución de carácter que excede en la matriz VBA” Código de respuesta

Solución de carácter que excede en la matriz 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