RegEx pattern, code exacuting but doing nothing

Very new to RegEx I have data in cells like this

Col A
stuf 22-9989
stuff 559-6629
...
.
.
.
sfuff 1-66300

I want

Col A
stuf 22.9989
stuff 559.6629
...
.
.
.
sfuff 1.66300

My code is exacuting but doing nothing

Thanks

Sub Test)

    RegExRemove "Unpivot_XXX", "A", "/([0-9])-([0-9])/", "$1.$2"

End Sub

Function RegExRemove(shtName As String, ColRange1 As String, rPattern As String, rReplace As String)
Dim X
Dim R As Object
Dim ws As Worksheet
Dim rng1 As Range
Dim lngrow As Long, i As Long, LR As Long

       Set R = CreateObject("vbscript.regexp")
     Set ws = ThisWorkbook.Sheets(shtName)
           LR = ws.Cells.Find("*", ws.Cells(1, 1), , , xlByRows, xlPrevious).Row
      
     With R
       .Global = True
       .Pattern = rPattern
       .ignoreCase = True
     End With
     
     Set rng1 = ws.Range(ColRange1 & "1:" & ColRange1 & LR)
     X = rng1.Value2
     
     For lngrow = 1 To UBound(X)
       X(lngrow) = R.Replace(X(lngrow), rReplace)
     Next lngrow

   rng1.Value2 = X
  
End Function