This is just something I was playing around on the website. It's called Fancy Text. It takes one random character in a string and flips the foreground and background colors. It gives you a look like this:

Not sure I'm going to keep it, but I like the code, so here it is...

Function FancyText(S, FGColor, BGColor)

    Dim L, R, F

    L = Len(S)

    Randomize
    R = 1
    While R=1 Or R=L Or Mid(S,R,1)=" "
        R = Int(L * Rnd)+1
    Wend

    F = ""
    F = F & "<" & "font style='color:" & FGColor & "; background-color:" & BGColor & "'>" & Left(s,R-1) & "<" & "/font>"
    F = F & "<" & "font style='color:" & BGColor & "; background-color:" & FGColor & "'>" & Mid(s,R,1) & "<" & "/font>"
    F = F & "<" & "font style='color:" & FGColor & "; background-color:" & BGColor & "'>" & Right(s,L-R) & "<" & "/font>"
    FancyText = F

End Function

I decided not to keep that version. It's a little too dramatic for my website. The artist in me likes it. The programmer / practicalist thinks it's too distracting. So I came up with this version that just switches one character to black.

Not sure I'm going to keep it, but I like the code, so here it is...

Function FancyText(S, Color1)

    Dim L, R, F

    L = Len(S)
    Color2 = "#000000"

    Randomize
    R = 1
    While R=1 Or R=L Or Mid(S,R,1)=" "
        R = Int(L * Rnd)+1
    Wend

    F = ""
    F = F & "<" & "font style='color:" & Color1 & "'>" & Left(s,R-1) & "<" & "/font>"
    F = F & "<" & "font style='color:" & Color2 & "'>" & Mid(s,R,1) & "<" & "/font>"
    F = F & "<" & "font style='color:" & Color1 & "'>" & Right(s,L-R) & "<" & "/font>"
    FancyText = F

End Function

There. That's better. Oh, and in case you're wondering, no you don't have to split the "<" from the rest of the text, but I need to do that to display it here or else my online editor "eats" it because it sees it as a tag in this page. So...

OK, so here's the FINAL version which I actually made into a video:

Here's the code with the color darkening function...

Function DarkenHexColor(hexColor)

    ' get rid of leading # if it exists
    If Left(hexColor,1)="#" Then hexColor=Right(hexColor,6)

    ' Convert hex color to RGB values
    r = CLng("&H" & Mid(hexColor, 1, 2))
    g = CLng("&H" & Mid(hexColor, 3, 2))
    b = CLng("&H" & Mid(hexColor, 5, 2))

    ' Reduce RGB values by 20% to darken the color
    r = Int(r * 0.6)
    g = Int(g * 0.6)
    b = Int(b * 0.6)
  
    ' Convert RGB values back to hex color
    DarkenHexColor = Right("0" & Hex(r), 2) & Right("0" & Hex(g), 2) & Right("0" & Hex(b), 2)

End Function

Function FancyText(S, Color1)

    Dim L, R, F

    L = Len(S)
    'Color2 = "#000000" ' Black
    Color2 = DarkenHexColor(Color1)

    Randomize
    R = 1
    While R=1 Or R=L Or Mid(S,R,1)=" "
        R = Int(L * Rnd)+1
    Wend

    F = ""
    F = F & "<" & "font style='color:" & Color1 & "'>" & Left(s,R-1) & "<" & "/font>"
    F = F & "<" & "font style='color:" & Color2 & "'>" & Mid(s,R,1) & "<" & "/font>"
    F = F & "<" & "font style='color:" & Color1 & "'>" & Right(s,L-R) & "<" & "/font>"
    FancyText = F

End Function
 

There. That's much, MUCH better.

Video

You can watch the video here: ASP Fancy Text