Moving Characters To Right After Comma In String

I've got this string which looks like this:
Gabriel, Peter

And I want this string to look like this:
Peter Gabriel

I know about the replace and split functions, but I'm not sure how I can make this as simple as possible without messing around too much?

Here's the code
Dim strDisplayName as string
strDisplayName = "Gabriel, Peter"
Dim strTemp() As String
strTemp = Split(strDisplayName, ",")
strTemp(1) = Replace(strTemp(1), " ", "")
strDisplayName = strTemp(1) & " " & strTemp(0)