求组段落符不识别，帮忙改一下，谢谢了！

luchanghai

求助改下代码，下面是日本的代码，笑脸位置代码乱码，笑脸位置是段落符号，不识别，大佬们帮忙改一下，谢谢！
一共有4个笑脸

Public Sub InsertVal(ByVal newInsertVal As String)

Const PROC_NAME As String = "basFrmLedPopup/InsertVal"
   
On Error GoTo MyErr
    With frmLedPopup
        '----------------
        ' エラーチェック
        '----------------
        Dim myInsertionCtl As Object    '挿入コントロール
        
        Set myInsertionCtl = .mlpInputText.SelectedItem.ActiveControl
        If myInsertionCtl.Name Like "txt*" Then
        Else
            Exit Sub
        End If
        
        '--------------
        ' 文字組み立て
        '--------------
        Dim myVal As String     'テキスト仮格納
        Dim myLen As Long       'テキスト文字数
        Dim myInsertPos As Long '挿入位置
        
        '内容の改行を""に置換え仮格納
        myVal = Replace(myInsertionCtl.Text, vbCrLf, "")
        myLen = Len(myInsertionCtl.Text)
        myInsertPos = myInsertionCtl.SelStart
        '挿入位置が先頭
        If myInsertPos = 0 Then
            myVal = newInsertVal & myVal
        '挿入位置が最後
        ElseIf myInsertPos = myLen Then
            myVal = myVal & newInsertVal
        '挿入位置が真ん中
        Else
            myVal = Left(myVal, myInsertPos) & newInsertVal & Mid(myVal, myInsertPos + 1, myLen)
        End If
        
        '------------------------------
        ' 挿入コントロールに文字を戻す
        '------------------------------
        '""を改行に戻す
        myInsertionCtl.Text = ""
        myInsertionCtl.Text = Replace(myVal, "", vbCrLf)
        myInsertionCtl.SetFocus
        myInsertionCtl.SelStart = myInsertPos + (Len(newInsertVal))
    End With
    Exit Sub
'----------------------------------------------------------
MyErr:
Call gErr.SetSystemErr("特殊文字挿入中にエラーが発生しました。", PROC_NAME)
Call gErr.ThrowErr
Set gErr = Nothing

End Sub