Try the split function, for your example it would look something like
Dim yourstring As String
Dim i As Integer
Dim StringtoParse As Variant
yourstring = "PROJECT1 GROUP1-25%, GROUP2-50%, GROUP3-25%."
StringtoParse = Split(yourstring, " ")
For i = 1 To UBound(StringtoParse)
Debug.Print...