VBA - Samle function til én

Hej med Jer

Hvordan kan jeg samle denne function til én?

Function removeWeeks(r As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d{1,2}-\d{1,2}"
        .Global = True
        removeWeeks = .Replace(r, "")
    End With
End Function

Function removeWeeks2(r As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d{1,2} - \d{1,2}"
        .Global = True
        removeWeeks2 = .Replace(r, "")
    End With
End Function

Blot så den selv fanger 20-23 eller 20 - 23. :)

PFT.