Hvordan går jeg ind tager kun et enkelt tal ud fra siden ?

Option Explicit

Public Function FindIn(ByVal strHtml As String) As String
Dim i As Long
Dim lStart As Long
Dim strFind1 As String
Dim strFind2 As String

strFind1 = ";width:20px;"">" '<- Start med at finde...
strFind2 = "</span>" '<- Find hen til space fra start string

  lStart = InStr(1, strHtml, strFind1, vbTextCompare)
  If Not lStart = 0 Then
  lStart = (lStart + Len(strFind1))
    For i = lStart To Len(strHtml)
      If Mid(strHtml, i, Len(strFind2)) = strFind2 Then
        FindIn = Mid(strHtml, lStart, (i - lStart))
        Exit For
      End If
    Next i
  End If
End Function

Private Sub Command1_Click()
  Me.Caption = FindIn(Text1.Text)
End Sub

'<- Find hen til space fra start string = '<- Find hen til span fra start string

Her er mit bud:

Public Function FindNumber(ByVal strHTML As String) As String
    Dim strStart As String
    Dim strSlut As String

    strStart = "width:20px;"">"
    strSlut = "</span>"

    If InStr(1, strHTML, strStart) Then
        strHTML = Mid(strHTML, InStr(1, strHTML, strStart) + Len(strStart), Len(strHTML))
        FindNumber = Left(strHTML, InStr(1, strHTML, strSlut) - 1)
    End If
End Function

Hov, det skulle ha' været et svar...
Du kan kalde den således:

MsgBox FindNumber(stringMedHTML)