如何用split分割这段

 text1内容为

百度<>baidu
微博<>weibo

那么如何用split使
label1显示为百度
label2显示为baidu
label3显示为微博
label4显示为weibo --------------------编程问答--------------------

Dim Tex() As String

  Tex = Split("百度<>baidu" & vbCrLf & "微博<>weibo", "<>")

  If UBound(Tex) = -1 Then Exit Sub 'Or Function

  Label1.Caption = Tex(0)

  Label4.Caption = Tex(2)

  Tex = Split(Tex(1), vbCrLf)

  If UBound(Tex) = -1 Then Exit Sub 'Or Function

  Label2.Caption = Tex(0)

  Label3.Caption = Tex(1)

--------------------编程问答--------------------

dim a() as string

a = split(text1,vbcrlf)



dim b() as string

b = split(a(0),"<>")



label1.caption = b(0)

label2.caption = b(1)



b = split(a(1),"<>")



label3.caption = b(0)

label4.caption = b(1)

--------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答--------------------

补充：VB ,  基础类