Question

VB 用SPLIT从字符串中提取数据的问题

字符串内容如下：
100
SZ28,0,100
SZ29,0,100
SZ30,0,100
SZ31,0,100
SZ32,0,100
SZ33,0,100
SZ34,0,100
SZ35,0,100
SZ36,0,100
SZ37,0,100
SZ38,0,100
SZ39,0,100
SZ40,0,100
SZ41,0,100
SZ42,0,100
SZ43,0,100
SZ44,0,100
SZ45,0,100
SZ46,0,100
SZ47,0,100
SZ48,0,100
ST1,C854
ST2,C874
ST3,C875
ST4,C865
ST5,C50
ST6,C54
ST7,C105
ST8,C102
ST9,C114
ST10,
ST11,C861
ST12,
ST13,Q50
ST14,Q850
ST15,D855
ST16,D50
ST17,D854
ST18,T850
ST19,L850
ST20,L51
ST21,RT850
ST22,
ST23,
ST24,U101
ST25,U103
ST26,U402
ST27,
ST28,
ST29,
ST30,
ST31,1
ST32,2
ST33,3
ST34,4
ST35,5
ST36,6
ST37,7
ST38,8
ST39,9
ST40,
ST41,
ST42,
ST43,
ST44,
ST45,
ST46,
ST47,
ST48,
SX1,On,E-Cap
,001.002.003.004.005.006.007.008.009
SX2,On,Fix-Cap,011
SX3,On,Tran./Diode,013.014.015.016.017
SX4,On,Mag./Resistor,018.019.020.021
SX5,On,IC,024.025.026
SX6,On,PanelSurface
,031.032.033.034.035.036.037.038.039
SX7,Off
SX8,Off
SX9,Off
SX10,Off
SX11,Off
SX12,Off
SX13,Off
SX14,Off
SX15,Off
SX16
用以下代码提取以ST开头的行逗号后面的内容（包括内容为空），但是当遇到此行逗号后为空时报错，
请大神帮忙看看该如何解决
s3 = Split(Replace(Text5.Text, "," & vbCrLf, ""), "ST", , vbTextCompare)
'Text4.Text = Trim(s3)
For i = 1 To UBound(s3)
s1 = Split(Split(s3(i), vbCrLf)(0), ",")(1)
s1 = Trim(s1)
Text2 = Text2 + s1 + vbCrLf
Next i

Answer 1

s3 = Split(Replace(Text5.Text, vbCrLf, ","), "ST")
For i = 1 To UBound(s3)
   Text2 = Text2 & Split(s3(i), ",")(1) & vbCrLf
Next i

Answer 2

s3 = Split(Text5.Text, vbCrLf)
'Text4.Text = Trim(s3)
For i = 1 To UBound(s3)
  If Left(s3(i), 2) = "ST" Then
    s1 = Split(s3(i), ",")
    Text2 = Text2 & s1(1) & vbCrLf
  End If
Next i