Hallo! Also instr brauchst du natürlich auch. Damit bekommst du ja die Stelle. Du kannst dann splitten oder mit Mid so wie unten die Zahl "rausfiltern". Ich gebe hierbei die Zahl nur aus. Ggf. musst du sie noch anders verarbeiten. In meinem Beispiel steht dein html String in Zelle A1 der ersten Tabelle1. Vg

Sub likes_suchen()
Dim code As String
Dim start As Long
Dim ende As Long

'der Code ist in A1 der ersten Tabelle
code = Worksheets(1).Cells(1, 1)
start = InStr(1, code, "(wie ", vbTextCompare) + 5
ende = InStr(1, code, "andere auch)", vbTextCompare)
'Ausgabe
MsgBox Mid(code, start, ende - start)

End Sub