For Each sText In ["Así", "se", "pone", "código", "Gambas", "con", "geshi"] sOutput &= sText & " " Print sOutput Wait 0.5 Next