result = TextBox1.Text
SplitResult = Split(result, " '")
For i = 1 To UBound(SplitResult)
SplitResult(i) = Replace(SplitResult(i), " ", "")
SplitResult(i) = Replace(SplitResult(i), "'", "")
SplitResult(i) = Replace(SplitResult(i), "*", "")
SplitResult(i) = Trim(SplitResult(i))
If SplitResult(i) <> "" Then ListBox1.Items.Add(SplitResult(i))
Next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024