Private Sub Check1_Click() If Check1.Value = 1 Then If InStr(" " & Text1.Text & " ", " " & Check1.Caption & " ") = 0 Then Text1.Text = Text1.Text & Check1.Caption & " " End If Else If InStr(" " & Text1.Text & " ", " " & Check1.Caption & " ") > 0 Then Text1.Text = Replace(Text1.Text, Check1.Caption & " ", "") End If End If End Sub
Private Sub Command1_Click() Dim obj Text1 = "" For Each obj In Controls If TypeName(obj) = "CheckBox" Then If obj.Value = 1 Then Text1 = Text1 & obj.Caption End If End If Next End Sub Private Sub Form_Load() Check1.Value = 1 End Sub