Private Sub Command1_Click()
Dim s As String, arrS() As String
Dim i As Long
List1.Clear
s = "1 2 3 4"
arrS = Split(s)
For i = 0 To UBound(arrS)
List1.AddItem (arrS(i))
Next i
End Sub
Private Sub Command1_Click()
Dim s As String, arrS() As String
Dim i As Long
List1.Clear
arrS = Split(Text1.Text)
For i = 0 To UBound(arrS)
List1.AddItem (arrS(i))
Next i
End Sub
Private Sub Command1_Click()
Dim arrS() As String
Dim i As Long
List1.Clear
For i = 1 To LenB(StrConv(Text1.Text, vbFromUnicode))
ReDim Preserve arrS(i - 1) As String
arrS(i - 1) = Mid(Text1.Text, i, 1)
Next i
For i = 0 To UBound(arrS)
List1.AddItem (arrS(i))
Next i
End Sub