'Hier wird geprüft wieviele Checkboxen Checked sind.
     For Each CB As CheckBox In Me.Panel2.Controls
            If CB.Checked = True Then
                TabelleZeichnen()
            ' Wenn hier nun stehen würde VarSprache = CheckboxIndex
            ' Wäre es ja schon gelöst das Problem :D
     Next
 
Public Sub TabelleZeichnen()
'Hier ist dann der Code für das erstellen der Tabelle
'Mit den Wariablen z.B. MaxStrom(VarSprache) z.B. so:
oTable1.Cell(1, 1).Range.Text = WortSchutzart(VarSprache)
end sub