That looks a lot like me coding already - I recognise my style.
This is the last thing for a while I have paid work to do!
Sub ReplaceText()
Dim oSld As Slide
Dim oShp As Shape
Dim strinput As String
Dim oTxtRng As TextRange
Dim strFind As String, strReplace As String
Dim regX As Object
Set regX = CreateObject("vbscript.regexp")
With regX
.Global = False
.Pattern = "([0-9])\.([0-9])"
End With
Set oSld = ActiveWindow.View.Slide
strFind = Space$(2)
strReplace = Space$(1)
For Each oShp In oSld.Shapes
If oShp.HasTextFrame Then
Set oTxtRng = oShp.TextFrame.TextRange
While InStr(oTxtRng.Text, strFind) > 0
oTxtRng = Replace(oTxtRng, strFind, strReplace)
Wend
End If
strinput = oShp.TextFrame.TextRange.Text
b_found = regX.Test(strinput)
If b_found = True Then
strinput = regX.Replace(strinput, "$1,$2")
oShp.TextFrame.TextRange = strinput
End If
Next oShp
End Sub