hat last one had a couple lockup bugs heres the revamped code:
Function decode(sStr As String) As String
Dim sTemp, sChar, sChar2 As String
Dim iCurrentPos, bIgnore, bCmdLine As Integer
iCurrentPos = InStr(1, sStr, ";}}", vbTextCompare) + 3
sStr = Mid(sStr, iCurrentPos)...