Dim WZ1 As Integer
Dim WZ2 As Integer
Dim WZ3 As Integer
Dim WZ4 As Integer
Dim WZ5 As Integer
Dim WZ6 As Integer
Dim WZ7 As Integer
Dim WZ8 As Integer
Dim WZ9 As Integer
Dim WZ10 As Integer
Dim WZ11 As Integer
Dim WZ12 As Integer
Dim WZ13 As Integer
Dim WZ14 As Integer
Dim WZ15 As Integer
Dim WZ16 As Integer
Dim WZ17 As Integer
Dim WZ18 As Integer
Dim WZ19 As Integer
Dim WZ20 As Integer
Dim WZ21 As Integer
Dim WZ22 As Integer
Dim WZ23 As Integer
Dim WZ24 As Integer
 
Open "zahlen.txt" For Input As #5
Input #5, WZ1
Input #5, WZ2
Input #5, WZ3
Input #5, WZ4
Input #5, WZ5
Input #5, WZ6
Input #5, WZ7
Input #5, WZ8
Input #5, WZ9
Input #5, WZ10
Input #5, WZ11
Input #5, WZ12
Input #5, WZ13
Input #5, WZ14
Input #5, WZ15
Input #5, WZ16
Input #5, WZ17
Input #5, WZ18
Input #5, WZ19
Input #5, WZ20
Input #5, WZ21
Input #5, WZ22
Input #5, WZ23
Input #5, WZ24
Close #5

ArraysString(0) = _
  "WZ1,WZ3,WZ4,WZ5,WZ7,WZ9,WZ11,WZ13,WZ14,WZ15,WZ17,WZ18,WZ19,WZ21,WZ23,WZ24"
 
ArraysString(1) = _
  "WZ1,WZ2,WZ3,WZ5,WZ7,WZ8,WZ9,WZ10,WZ11,WZ13,WZ15,WZ16,WZ17,WZ21,WZ22,WZ23,WZ" & _
  "4"
 
ArraysString(2) = _
  "WZ1,WZ2,WZ3,WZ4,WZ5,WZ6,WZ7,WZ8,WZ9,WZ10,WZ12,WZ13,WZ14,WZ15,WZ17,WZ18,WZ20" & _
  "WZ21,WZ22,WZ24"
 
ArraysString(3) = _
  "WZ2,WZ3,WZ4,WZ5,WZ6,WZ7,WZ8,WZ9,WZ10,WZ12,WZ13,WZ14,WZ15,WZ16,WZ17,WZ18,WZ2" & _
  ",WZ21,WZ22"
 
ArraysString(4) = _
  "WZ1,WZ2,WZ4,WZ6,WZ8,WZ10,WZ11,WZ12,WZ14,WZ15,WZ16,WZ17,WZ18,WZ19,WZ20,WZ22," & _
  "Z24"
 
ArraysString(5) = _
  "WZ1,WZ2,WZ3,WZ6,WZ7,WZ8,WZ9,WZ10,WZ11,WZ14,WZ15,WZ16,WZ17,WZ18,WZ19,WZ20,WZ" & _
  "1,WZ22,WZ23,WZ24"