Hi there!
Perhaps neater to do this (avoiding REPEAT block and error checking):
DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.
DEFINE VARIABLE cList AS CHARACTER NO-UNDO INITIAL "one,two,three,four".
DO iLoop = 1 TO NUM-ENTRIES(cList):
MESSAGE ENTRY(iLoop,cList)
VIEW-AS ALERT-BOX...