求助填空题

luchanghai

填空题

大佬们帮忙看看下面代码2个笑脸应该填什么？
（原题答案是换行符 ）
        ¶




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

luchanghai

没显示  更正一下   ¶ 段落符

luchanghai

显示还是错误 发图片吧