Dim index as integer = S.IndexOf("(")
s = s.Substring(index + 1)
'now you have "4 per assembly)"
Dim Arr() as String = s.Split(" ") 'split the sentence by space
'Arr(0) will contain your first number
Dim MyNumber as Integer = Convert.ToDouble(Arr(0))