Option Explicit
 
Private Sub Command1_Click()
    Dim Spieltag As Variant
    Dim i As Integer
 
    ' Die Zahl links vom Punkt aus dem String auslesen
    ' (z.B. "1.Spieltag" ergibt 1, "2.Spieltag" ergibt 2 usw.)
    Spieltag = Left$(Text1.Text, InStr(1, Text1.Text, "."))
 
    ' Die Label mit den Spielnummern füllen
    For i = 1 To 8
        Label1(i).Caption = (Spieltag - 1) * 8 + i
    Next i
End Sub