Split Text And Number VBA?

I have some text like this in a cell

First Name Surname Number,First Name Surname Number,First Name Surname Number etc. e.g John Smith 20, Billy Sharp 40, J Rodriguez 50

I need to split the text so that it looks like this

John Smith
20

Billy Sharp
40

J Rodriguez
50

I have tried to have a go but have come stuck

Code:
Sub Split_Name()
Dim str As String
Dim a
str = Sheets("Sheet1").Range("A1").Value
a = Split(str, ",")
For i = LBound(a) To UBound(a)
???????????????????????
Next i
End Sub