从文本框中将数字集复制到列表框中

Question

我有一个用户放入数字组的文本框（例如32 45 98 56 52 1 23），我需要将这些数字复制到一个列表框中，以便每个数字都是它自己的项目。到目前为止我有这个

         For Each ch As Char In TextBox20.Text
            If Char.IsDigit(ch) Then
                ListBox1.Items.Add(ch)
            End If
        Next

但问题是它会将每个数字复制为一个项目，所以我们最终会用

3
2
4
5
9
8
5 
6

我需要它像这样复制它们

32
45
98
56

Answer 1

这里有一个如何做的示例

Sub addToListBox()
Dim sample As String
Dim v As Variant
Dim i As Integer

sample = "32 45 98 56 52 1 23"

v = Split(sample, " ")

For i = 0 To UBound(v)
    If IsNumeric(v(i)) Then
        ListBox1.Items.Add(v(i))
    End If

Next i

End Sub