Sub Separator2()
    Dim cc As Variant
    Dim r As Object, m As Object
    Set r = CreateObject("vbscript.regexp")
    With r
        .Global = False: .IgnoreCase = True: .MultiLine = False: .Pattern = "(\d+)([-\/F]+)(\d+)"
    End With
    For Each cc In Selection
        Set m = r.Execute(cc)
        If m.Count Then
            Debug.Print m(0).Submatches(0) & vbTab & m(0).Submatches(2) ' для отладки
        End If
    Next
End Sub