中国DOS联盟

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