Thanks guys..i appreciate your helpfulness 
I can’t imagine how I passed by that code without noticing that a double end sub appears, 
well thanks again..
RPCoyle thanks, I understand what you mean..hehehe, I just can’t fully understand those other terms in vb that’s why I keep on asking..sorry for that.!. 
Anyways, I’m still confuse on the code you posted..just feel free to make this clear to me but if not I understand..
Hmmp, about this code:
strt = InStr(str, "<") + 1
fin = InStr(str, ">")
If (fin - strt) <= 0 Then
Exit Function
Else
ColorStr = Mid(str, strt, (fin - strt))
End If
You should be able to piece this together and get it working.
do you mean that, that code is inserted one by one or they belong to a separate places of the code then i should only determine if where this code fits.?. 
Finally, the code of my arduino goes like this:
Serial.println ("<Y>");
Serial.print(ColorStr);
is this right.?.or it should be like this:
Serial.print("< ");
Serial.println ("<Y>")
Serial.print(ColorStr); // output to computer USB port
Serial.println(">");
i was confused for that..