Extracting Part of a String

[opus]

 Dim Splitup as string
Dim Secondfromlast as string
For index = 0 To PartsArray.GetUpperBound(0) 'so your Array Containing all Data is called PartsArray
            Dim splitUp = qtyfind.Split(" ") 'so you should use "PartsArray(index)" in here instead of "qtyfind"
            Dim secondFromLast = splitUp(splitUp.Length - 2)
            Quantity.Items.Add(secondFromLast)
        Next

..added two comments to your code!