Как выражения прописываются в регулярке?

 'любую цифру и запятую меняем эту же цифру и точку, то есть разделителем будет не запятая, а точка
    reg.Pattern = "0,"
    SelectionRange = Trim$(reg.Replace$(SelectionRange, "0."))
    'Debug.Print SelectionRange
 
    'любую цифру и запятую меняем эту же цифру и точку, то есть разделителем будет не запятая, а точка
    reg.Pattern = "1,"
    SelectionRange = Trim$(reg.Replace$(SelectionRange, "1."))
    'Debug.Print SelectionRange

    reg.Pattern = "([0-9]),"
    SelectionRange = Trim$(reg.Replace$(SelectionRange, "\1."))

SelectionRange = Trim$(Strings.Replace(SelectionRange, ",",".")

    Dim I as Integer
    SelectionRange = Trim$(SelectionRange)
    For I = 0 To 9
        SelectionRange = Strings.Replace(SelectionRange, CStr(I) & ",",CStr(I) & ".")
    Next

Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")

  With SelectionRange.Find
         .Text = "([0-9]),"
         .MatchWildcards = True
        While .Execute
            .Replacement.Text = "\1."
            .Execute Replace:=wdReplaceAll
        Wend
    End With

Sub pr()
    Dim t$
    t = "123,025"
    With CreateObject("vbscript.regexp")
        .Pattern = "([0-9]),"
        t = Trim$(.Replace$(t, "$1."))
    End With
End Sub

'|-или
    reg.Pattern = "руб |руб.|рубль|рублей|рубля"
    SelectionRange = Trim$(reg.Replace$(SelectionRange, "руб."))

'" 195 рублей 20 копеек" приводим к виду - " 195,20 руб."
    reg.Pattern = " (\d*) руб. (\d*) коп."
    SelectionRange = Trim$(reg.Replace$(SelectionRange, " $1,$2 руб."))
    Debug.Print SelectionRange

        .Pattern = "(\d+)\s+руб(\.|ль|лей|ля)\s+(\d+)\s+(копе(ек|йка)|коп\.)"
        t = Trim$(.Replace$(t, "$1,$3 руб."))