Private Sub Check19_Click()
    If Check19.Value = 1 Then
        Text10.Text = "Americans
    else               '否则
        text10=""      '让他为空
    endif
endsub

注意为了阅读方便，代码请使用缩进格式。养成这个习惯，程序才能做大，不然大程序就根本度不清楚。

还可以更简洁一些：

Private Sub Check19_Click()
Text10.Text = iif(Check19.Value,"Americans","")
end sub