Private Sub TextBox1_Change()
c1 = IIf(CheckBox1, " / ", "")
c2 = IIf(CheckBox2, " / ", "")
TextBox1 = (CheckBox1.Tag & c1 & CheckBox2.Tag & c2 & CheckBox3.Tag)
c = Len(TextBox1)
If Right(TextBox1, 2) = "/ " Then TextBox1 = Left(TextBox1, Len(TextBox1) - 2)
End Sub