codice:
'non avevo letto che i numeri che devi estrarre sono composti da due cifre
'prova così

Dim arrNumeri() As Integer
Dim tuaStringa As String
Dim indx As Byte
Dim ipos As Byte

'apice davanti ai numeri
tuaStringa = "ASD'23FGHGF'44DFDDFD"

'apice dietro ai numeri
tuaStringa = "ASD23'FGHGF44'DFDDFD"

indx = 0
For i = 0 To Len(tuaStringa)
    ipos = i + 1
    ichar = Mid(tuaStringa, ipos, 1)
    
    'se l'apice è davanti ai numeri
    If ichar = "'" Then
        ReDim Preserve arrNumeri(indx) As Integer
        arrNumeri(indx) = Mid(tuaStringa, ipos + 1, 2)
        indx = indx + 1
    End If
    
    'se l'apice è dietro ai numeri
    If ichar = "'" Then
        ReDim Preserve arrNumeri(indx) As Integer
        'arrNumeri(indx) = Mid(tuaStringa, ipos + 1, 2)
        arrNumeri(indx) = Mid(tuaStringa, ipos - 2, 2)
        indx = indx + 1
    End If
Next