Dim s As String="BRC2532G10ST2P104"
Dim p As String = "\d+"
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim str = r.Split(s)
For Each a As String In str
Output.Show(a)
Next
p = "[a-zA-Z]+"
r = New System.Text.RegularExpressions.Regex(p)
str = r.Split(s)
For Each a As String In str
Output.Show(a)
Next