On Error Resume Next
Dim sHTML As String, sTemp As String, iPos As Integer
' sHTML enthält den zu durchsuchenden Quelltext
sHTML = "<tr><td class=""box_file"">Sie haben 4 ungelesene SMS -" & _
  "Nachricht(en).</td></tr>"
' nach class="box_file" suchen
iPos = InStr(1, sHTML, "class=""box_file""", vbTextCompare)
If iPos > 0 Then
    ' in temporäre Variable ab dem abschließenden ">" schreiben
    sTemp = Mid(sHTML, InStr(iPos, sHTML, ">") + 1)
    ' alles nach dem folgenden "<" abschneiden
    sTemp = Left(sTemp, InStr(1, sTemp, "<") - 1)
    MsgBox sTemp
End If