sub HighlightText {
   my ($texttosearch,$searchstring,$color)=@_;
   my $highlighted = "<FONT COLOR='$color'><B>$searchstring</B></FONT>";
   $texttosearch =~ s/$searchstring/$highlighted/gi;

   return $texttosearch;
}