option explicit dim arrStr() as string dim f as integer dim neki_string as string neki_string="visnja,jabuka,tresnja" arrStr=split (neki_string,",") for f=0 to ubound(arrStr) RichTextBox1.Text=RichTextBox1.Text & arrStr(f) & vbNewLine next f