如何立即将文本框中的值添加到列表框中五次？

How to add a value from a text box to list box five times instantly?

我喜欢单击一个按钮将 textbox4.value 添加到列表框 5 次。如果文本框值为是，我希望列表框列出是是是是是。我不知道这是可能的，但我希望如此。

Private Sub CommandButton2_Click()
If Me.TextBox4.Value = "" Then
Exit Sub
Else
ListBox1.AddItem Me.TextBox4.Value
Me.TextBox4.Value = ""
End If
Me.TextBox4.SetFocus
End Sub

尝试：

Private Sub CommandButton2_Click()

If Me.TextBox4.Value = "" Then
    Exit Sub
Else
    Dim i As Long
    For i = 1 To 5
        ListBox1.AddItem Me.TextBox4.Value
    Next i
    Me.TextBox4.Value = ""
End If
Me.TextBox4.SetFocus

End Sub