As caixas de seleção não têm uma propriedade Text
. Use a propriedade Value
, por exemplo:
ws.Range("F" & LastRow).Value = CheckBox2.Value
Observe que isso retorna "Verdadeiro" ou "Falso". Se você precisar de mais alguma coisa, você precisa verificar, por exemplo:
ws.Range("F" & LastRow).Value = IIf(CheckBox2.Value,"Yes","No")