VERY nice.

--
Don Guillett
SalesAid Software

"Colo" wrote in message
...

Code:
--------------------

Sub ShowMessage()
Dim sq As String
sq = "&h4D&h65&h72&h72&h79&h20&h58" & _
"&h2D&h6D&h61&h73&h21&hA&h45" & _
"&h78&h63&h65&h6C&h20&h69&h73" & _
"&h20&h74&h68&h65&h20&h63&h6F" & _
"&h6D&h6D&h6F&h6E&h20&h62&h6F" & _
"&h6E&h64&h20&h74&h68&h61&h74" & _
"&h20&h62&h72&h69&h6E&h67&h73" & _
"&h20&h75&h73&h20&h74&h6F&h67" & _
"&h65&h74&h68&h65&h72&h21"
MsgBox HexToCode(sq)
End Sub

Function HexToCode(ByVal strCode As String) As String
Const strSeq As String = "&h"
Dim i As Long
Dim buf
buf = Split(strCode, strSeq)
For i = LBound(buf) To UBound(buf)
If buf(i) < "" Then HexToCode = HexToCode & Chr(strSeq & buf(i))
Next
End Function

--------------------



---
Message posted from http://www.ExcelForum.com/