vb关于自符串分解问题

问题描述：

有可能是b-67890-1
也有可能是b-2367890-1，2，3等等
要求a=两个-““-之间的字符，b=最后一个-号后面的字符如1或1，2，3这里需要说明一点，如果-后面是1个数那么没有“，”分隔，如大于1个数了会有逗号分隔的
请问这个该怎么分解

问题解答：

s="b-2367890-1,2,3"
a=split(s,"-")(1)
b=split(s,"-")(2)
print a
print b

Private Sub Command1_Click()
Dim Str As String
Dim A As String
Dim B As String

Str = "b-2367890-1,2,3"
A = Mid(Str, InStr(Str, "-") + 1)
B = Mid(A, InStr(A, "-") + 1)
A = Mid(A, 1, InStr(A, "-") - 1)
Print A
Print B
End Sub