Estrarre più numeri da una stessa stringa

Option Explicit
Sub EstraiNumeri()
    Dim nRiga As Long                             'numero riga in elaborazione
    Dim sTesto As String                          'stringa testo da elaborare
    Dim sMatr As Variant                          'stringa matrice dopo la divisione
    Dim sNum  As String                           'stringa numeri estrapolati
    Dim x     As Long                             'contatore generico
    Dim pVirg As Long                             'posizione della virgola
    For nRiga = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        sNum = ""
        sTesto = Cells(nRiga, "A")
        sMatr = Split(sTesto, " - RO ")
        sNum = sNum & sMatr(0)
        For x = 1 To UBound(sMatr) - 1
            pVirg = InStr(sMatr(x), ",")
            sNum = sNum & " -" & Right(sMatr(x), Len(sMatr(x)) - pVirg)
        Next x
        Cells(nRiga, "B") = sNum
        Cells(nRiga, "B").NumberFormat = "@"
    Next nRiga
End Sub