Private Sub Command1_Click()

Dim i As Integer, result As String "定義整型變數i,字串變數result

For i = 1 To Text1.Text Step 1 "迴圈過程開始將i的最小值和最大值限定為1和Text1的內容，步距為1

result = result & InputBox("") "彈出InputBox並且與之前的合併賦給result

Next "迴圈過程完畢

Clipboard.Clear "清空剪貼簿

Clipboard.SetText result "將剪貼簿內容設定為result

End Sub

執行程式後在文字框裡面輸入要彈出的InputBox個數即可