Private Sub Opt数据输入_Click()
On Error GoTo ErrorHandler

    If Opt数据输入 = True Then
   
        Dim prompt As String
        Dim title As String
        Dim default As String
        Dim strInput As String
       
        prompt = prompt & "函数：InputBox() 数据库" & Chr(13) & Chr(10)
        prompt = prompt & "函数：funSpace() 自定义" & Chr(13) & Chr(10)
        prompt = prompt & "输入：文本 数字 符号" & Chr(13) & Chr(10)
        prompt = prompt & "功能：多空格 替换为 单空格"
        title = "数据输入"
        default = "   序号 名称 年代 质类  质型   质地    1234    ！@#￥%……&*（）-=     end    "
       
        strInput = InputBox(prompt, title, default)
        txt数据输入 = funSpace(strInput)
       
    Else
        txt数据输入 = Null
    End If
   
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    MsgBox "Error No：" & Err.Number & "    Description：" & Err.Description
    Resume ErrorHandlerExit
End Sub

Private Function funSpace(strString As String) As String
    Dim strA As String, strB As String, i As Long
        strString = Trim(strString)
    For i = 1 To Len(strString) - 1
        strA = Mid(strString, i, 1)
        strB = Mid(strString, i + 1, 1)
        If strA = " " And strB = " " Then strString = Replace(strString, "  ", " ")
    Next i
        funSpace = strString
End Function

附   件:

图   示: