Option Explicit

Function aktuelleLottozahlen(ByVal Spieltag As String) As Variant

Dim RIndex   As Integer
Dim TempNum  As Long
Dim ObjHTTP  As Object
Dim LottoURL As String
Dim TagName  As String
Dim URLText  As String
Dim Work     As Variant
Dim Result() As Integer
If Not IsDate(Spieltag) Then
   ReDim Result(0 To 0)
   Result(0) = -1
   GoTo FuncExit
End If
TagName = WeekdayName(Weekday(Spieltag, vbUseSystem))
Select Case TagName
       Case "Samstag"
       Case "Mittwoch"
       Case Else
            ReDim Result(0 To 0)
            Result(0) = -2
            If Debugging Then Debug.Print TagName & " ist kein gültiger Wochentag"
            GoTo FuncExit
End Select
LottoURL = "https://www.lotto-hessen.de/lotto6aus49/gewinnzahlen-quoten/gewinnzahlen"
'LottoURL = "https://www.lotto-bw.de/lotto/gewinnzahlen-quoten"
Set ObjHTTP = CreateObject("MSXML2.XMLHTTP")
With ObjHTTP
     .Open "GET", LottoURL, False
      .Send
      While Not .ReadyState = 4
            DoEvents
      Wend
      URLText = StrConv(.ResponseBody, vbUnicode)
End With
Set ObjHTTP = Nothing
TempNum = InStr(URLText, "Lottozahlen vom " & TagName & ", " & Spieltag) 'Samstag, " & Spieltag)
Select Case TempNum
       Case 0
            ReDim Result(0 To 0)
       Case Else
            URLText = Mid(URLText, TempNum)
            Work = Split(URLText, "<span>")
            ReDim Result(1 To 7)
            For TempNum = 1 To UBound(Work)
                RIndex = RIndex + 1
                Result(RIndex) = Replace(Mid(Work(TempNum), 1, 2), "<", "")
                If TempNum = 7 Then Exit For
            Next TempNum
End Select

FuncExit:
aktuelleLottozahlen = Result
End Function

Sub GetLotto()

Dim myVar As Variant
myVar = aktuelleLottozahlen("10.05.2025")
Stop
End Sub