获取字符串中的子字符串

如真彩色的Red，Green，Blue的值组成一个字符串，用逗号分开。但是逗号的位置是非固定的，因为R,G,B的各个值可以是1~3位数。

下面是一个将R，G，B的值组成的字符串，通过逗号来将其分割，并分别放到数组中。并算出其真彩色的值。

Sub test()

Dim ss As String
ss = "12,156,233"
Dim aa As Integer
Dim xx(2) As String
Dim i As Integer

For i = 0 To 1
aa = InStr(ss, ",")
xx(i) = Mid(ss, 1, aa - 1)
ss = Mid(ss, aa + 1)
Next i
xx(2) = ss

Dim bb() As Variant
ReDim Preserve bb(0)

bb(0) = xx(0) * 65536 + xx(1) * 256 + xx(2)

End Sub