Replace any number of spaces with comma

Hello everyone
I have a string that has sometimes one space and some times two spaces and may be three or more ..
I need to replace any number of spaces that are more than one space with a comma
Example :

"This is just an example of string"

The output would be "This is, just an example, of String"

I would prefer a UDF for that purpose
Thanks advanced for help

Try the TRIM function to remove extra spaces

Thanks a lot for reply
I know how to use Trim but I don't need to trim .. I need to deal with the spaces more that two spaces
Any more than two spaces to be replaced with comma

Maybe :

Function Test(param As String) As String
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "\s{2,}"
    If .Test(param) Then Test = .Replace(param, ", ")
  End With
End Function

That's wonderful Mr. Karedog
It works like charm

I am greedy as you know .. How to add another point
Example :

"-, Hello - , -     , This , , , - , Test Only, Thanks a lot"

The needed output would be (Remove any commas and dashes and the spaces more than two with comma (as done)
The desired output would be

"Hello, This, Test Only, Thanks a lot"

Should be :

Function Test(param As String) As String
  Const strReplace As String = ", "
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[\s,-]{2,}"
    If .Test(param) Then
       Test = .Replace(param, strReplace)
       If Left$(Test, Len(strReplace)) = strReplace Then Test = Mid$(Test, Len(strReplace) + 1)
    End If
  End With
End Function

That's perfect
The last point : What if there are comma or dash at the end of the string ..? I need to remove any commas or dashes at the end
Thank you very much

Should be :

Function Test(param As String) As String
  Const strReplace As String = ", "
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[\s,-]{2,}"
    If .Test(param) Then
       Test = .Replace(param, strReplace)
       If Left$(Test, Len(strReplace)) = strReplace Then Test = Mid$(Test, Len(strReplace) + 1)
    End If
    .Pattern = "[\s-,]+$"
    If .Test(Test) Then Test = .Replace(Test, vbNullString)
  End With
End Function

You are amazing Mr. Karedog
That's exactly what I was searching for
Thank you very very much for great help
Best and kind regards my hero

You are welcome, thanks for marking the thread as solved and rep.points.

Regards

As a matter of curiosity : Can UDF in post 4 be executed by formulas?

I don't get it.
Do you mean : can the UDF called from cell ? If this is the question, the answer is yes.

No I don't mean that. I mean to replace any spaces more than one using formulas (Built-In ones) like Substitute for example

Maybe like this ?
https://www.extendoffice.com/documen...gle-space.html

Formula:

=TRIM(SUBSTITUTE(A1,CHAR(32)," "))

I mean to replace those spaces more than two with comma .. not with space
The Trim function does that too ..

I don't know, you better ask for it in "Excel Formulas and Functions" subforum.

Regards

Thank you very much Mr. Karedog for your great and awesome support