Adicionar vírgula entre os registros

Question

Pessoal,

Gostaria de saber como posso fazer para adicionar neste caso vírgula entre os registros.

Tenho 11 registros em Checkbox cada um com seu valor e tenho uma variável para compor o código final.

Checkbox1 que se estiver Checked grava o valor na variável marca1
Checkbox2 que se estiver Checked grava o valor na variável marca2
Checkbox3 que se estiver Checked grava o valor na variável marca3

e assim por diante até o 11.

Neste caso na variável marca teria que incluir as variáveis das outras marcas da seguinte maneira.

Ex1:

Se somente uma marca conter valor somente ela seria incluída na variável marca

marca = marca2

Ex2:

Se mais do que uma marca conter valor teria que colocar a vírgula entra as variáveis, porem a última marca não pode ter a vírgula.

marca = marca1 & ", " & marca3

Esse código ira fazer parte de um select na base de dados.

Desde já obrigado pela atenção

Answer 1

Coloquei uma validação dentro de cada If do Checkbox e obtive o resultado esperado, não sei se teria outra forma.

If CheckBox9.Checked = True Then
    marca9 = 31
    If marca = Nothing Then
        marca = marca9
    Else
        marca &= ", " & marca9
    End If
End If

Answer 2

Tente assim:

If CheckBox9.Checked = True Then
    marca9 = 31
    IIf (marca = Nothing, marca = marca9, marca &= ", " & marca9)
End If

---

MARIANO1776