vb 中如何取出TEXT中空格前后的文本？

Private Sub Form_click()
Text1.Text = "洗衣机 3000元"
x = Split(Text1.Text, " ", -1, vbTextCompare) '有几个空格就在这行里的引号中空格
Print x(0)
Print x(1)
End Sub
这样比较简单。

'你好。最简单的方法是用split函数,其默认字符分割符为空格。
text1.text="洗衣机 3000元"
Dim Ar() As String
Ar = Split(Text1.Text)
MsgBox Ar(0) 'ar(0)是洗衣机
MsgBox Ar(1) 'ar(1)是洗衣机
'--------------

Dim TexLenght As Integer
Dim I as Long,J(1) As Long
Dim Text1 As String,Text2 As String
TexLenght=Len(Text.text)
For I=0 to TexLenght
If Mid(Text.text,I,2)=" " Then '有2空格就把I后的数字改成2，再在双引号后打2个空格
Text1=Left(Text.text,I-1)
Text2=Right(Text.text,I+1)
End if
Next I

Text1是洗衣机
Text2是3000元

dim a() as string
for i=0 to len(text1.text)
if mid("text1.text",i,1)=" " then
print a()
a()=""
else