Call me Ohlian

Function EscapeCode(p_Message) Dim m_char,m_asc,m_hex Dim m_temp Dim a_arc() Dim i ReDim a_arc(Len(p_Message)) For i = 0 To Len(...