RemColors
Sub RemColors(Text) TextNoColor="" i=0 Do i2=i i=InStr(i2+1, Text, Chr(1)) i4=InStr(i2+1, Text, Chr(3)) if (i4<i or i=0) and i4>0 Then i=i4 i3=i if i = 0 Then i=Len(Text)+1 i3=i else Do i=i+1 Dat=Mid(Text, i, 1) Loop until (Asc(Dat) > 57 or Asc(Dat) < 48) and Dat<>"," i=i-1 end if if i3-i2 > 1 Then TextNoColor=TextNoColor+Mid(Text, i2+1, i3-i2-1) loop until i3=Len(Text)+1 RemColors = TextNoColor End Sub