VBA: Finde uger

Hej med Jer

Jeg har en VBA kode som ser således ud:

Private Sub WeekSystem()
    Dim r As Range, i As Long
    On Error Resume Next
    Dim F, S, x As Integer
    Dim C, LArray() As String
    Dim Rng As Range: Set Rng = ThisWorkbook.Worksheets("Ark1").Range("A2", Range("A" & Rows.Count).End(xlUp))
   
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\d{1,2}-\d{1,2}"
        For Each r In Rng
            If .test(r.Value) Then
                For i = 0 To .Execute(r.Value).Count - 1
                    LArray = Split(.Execute(r.Value)(i), "-")

                    F = LArray(0)
                    S = LArray(1)
                    C = F
                    For x = F + 1 To S
                        C = C & "+" & x
                    Next
                   
                    If InStr(r(, i + 1).Value, "/") = 0 And InStr(r(, i + 1).Value, ".") = 0 Then r(, i + 1).Value = "Uge " & C
                Next
            End If
        Next
    End With
End Sub

Den hjælper mig ganske enkelt med, at hvis der står Uge 10-12 så skriver den Uge 10+11+12.

Kan den udbygges, så den finder alt med -? Så den både opfanger 10-12, 10 - 12, 10- 12, osv.

Det ville gøre det lidt lettere, da flere skriver på hver sin måde.