Function Bold(sIn As String)
       Dim sOut As String, Char As String
       Dim Code As Long, i As Long
       Dim Bytes(0 To 3) As Byte

       Bytes(0) = 53
       Bytes(1) = 216

       For i = 1 To Len(sIn)
           Char = Mid(sIn, i, 1)
           Code = Asc(Char)
           If (Code > 64 And Code < 91) Or (Code > 96 And Code < 123) Then
               Code = Code + IIf(Code > 96, 56717, 56723)
               Bytes(2) = Code Mod 256
               Bytes(3) = Code \ 256
               Char = Bytes
           End If
           sOut = sOut & Char
       Next i
       Bold = sOut
End Function