Como mostrar / listar checkbox qdo for true

Bom dia

Tenho um formulário onde são selecionados alguns checkboxes, após envio um email e neste as caixinhas assinaladas devem permacer selecionadas, porém não ficam selecionadas.

Temporariamente resolvi imprimindo um X em vermelho e funciona...

O que esta errado na linha em vermelho?

Dim prova_digiX

If var_prova_digital = "checkbox" then

 ' prova_digiX = "<font face='verdana' color=#FF0000>" & "X" & "</font>"

 

 ckbox_prova_digital = true

 

 else

 

 ' prova_digiX = ""

 

 ckbox_prova_digital = false;

 

 end if

 

 msg.HTMLBody = Replace(msg.HTMLBody, "%%prova_digiX%%" , prova_digiX)

Obrigado.