Function checkboxenChecken() As String
Dim i As Integer
Dim sString As String
 
For i = 0 To 9
If Check1(i).Value = 1 Then
    If Len(sString) = 0 Then
        sString = variable1(i)
    Else
        sString = sString & "-" & variable1(i)
    End If
End If
Next
checkboxchecken = sString
End Function

Gru?, Stefan