        Dim lStart As Long
        Dim lStop As Long
        Dim llength As Long
        'get smilie choice from user
        picSymbol.Add frmSmilie.InsertSmilie()
        'insert into rtb
        With RTB
            .SelText = Chr(128) & .SelText & Chr(129) ' \'80 \'81
            strrtfALL = .TextRTF
            strrtfALL = Replace(strrtfALL, "\'80", strRTF)
            .TextRTF = strrtfALL
            'find out what was added
            strrtfALL = .TextRTF
            lStop = InStr(strrtfALL, "\'81")
            lStart = InStrRev(strrtfALL, "{", lStop)
            picData.Add Mid(strrtfALL, lStart, lStop - lStart - 1)
            strrtfALL = Replace(strrtfALL, "\'81", "")
            .TextRTF = strrtfALL
	end with
