Option Explicit
Dim Msg,i,strMsg
Msg = Kill_sexfio
For i = 1 To UBound(Msg) - 1
strMsg = strMsg & Msg(i) & " "
Next
MsgBox strMsg
Function Kill_sexfio()
Dim Input,strMsg(),intCnt
Do
Input = InputBox("请输入数据:","回车退出")
intCnt = intCnt + 1
ReDim Preserve strMsg(intCnt)
strMsg(intCnt) = Input
Loop Until Input = ""
Kill_sexfio = strMsg
End Function