dim zeilen() as string = textbox1.text.split(vbcrlf)'oder split( 
' textbox1.text,vbcrlf)
dim output as string = ""
for i as integer=0 to ubound(zeilen)
  dim zeile() as string = split(zeilen(i), ":")
  dim outline as string = x(0) & ":" & "[/color blue]" & x(1) & "[color]"
  if output = "" then
    output = outline
  else
    output &= vbcrlf & outline
  endif
next
textbox1.text = output