Veel eenvoudiger kunnen we het niet maken:
Sub M_snb()
sn = Split(Split(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\lotto.htm").readall, "De Nationale Loterij van Belgi")(0), " Uitslag trekking ")
c00 = Replace(Replace(Replace(Replace(Replace(Join(Filter(Split(Replace(Replace(sn(1), "<", "<~"), ">", "~<"), "<"), "~", 0), ""), "–", "_"), "â", ""), "Â", ""), "¬", ""), Chr(160), "")
sn = Split(Replace(Replace(Split(c00, "Lijst")(0), vbLf & vbLf, vbLf), vbLf & " ", vbLf), vbLf)
Blad2.Cells(5, 4).Resize(, 8) = Split(Replace(sn(1), "+", " _ _ "), " _ ")
sn = Filter(Split(Join(Array(sn(4), sn(5), sn(6), sn(7), sn(8), sn(9), sn(10), sn(11), sn(12)), Chr(130)), Chr(130)), ",")
Blad2.Cells(8, 20).Offset(8 - UBound(sn)).Resize(UBound(sn) + 1) = Application.Transpose(sn)
End Sub