Private Sub List2_Click()
Dim a, b As String
If T14.Text = "" Then
T14.Text = List2.Text
Else
a = InStr(T14.Text, List2.Text)
If a > 0 Then
If a > 1 Then
T14.Text = Replace(T14.Text, "|" & List2.Text, "")
Else
b = InStr(T14.Text, "|")
If b > 0 Then
T14.Text = Replace(T14.Text, List2.Text & "|", "")
Else
T14.Text = Replace(T14.Text, List2.Text, "")
End If
End If
Else
T14.Text = T14.Text & "|" & List2.Text
End If
End If
End Sub