Keine Ahnung, wo Du jetzt gerade herum geisterst im Code oder was Du da ausgegraben hast. Ein bisschen musst Du Dich schon selber anstrengen, AtNotes ist keine Gratis-Code-Factory.
TIpp:
Erweitere den bestehenden Code
If CalItem.Text = "T"
um ein OR:
If CalItem.Text = "T" OR ...
Wenn Dir das nicht gelingt, solltest Du einfach nicht in fremden Code herumbasteln, ja überhaupt erst mal die Finger vom Programmieren lassen. Die Gefahr wäre viel zu gross, dass Du richtigen Schaden anrichtest, weil Du gar nicht weisst, was Du da tust.
Sorry für die scheinbar harschen Worte, aber auch und gerade in der IT gilt es, Grenzen zu erkennen. Die Appendizitis meiere Tochter habe ich auch nicht selbst behandelt, das haben hervorragende Ärzte des Klinikums Traunstein übernommen. Und als mir ein kurzzeitig geistig Abwesender das Auto in Klump gefahren hat, habe ich ebenfalls nicht selbst Hand angelegt, sondern das einer Marken-Fachwerkstatt übergeben.
In diesem Sinne: Verstehe es bitte als guten Rat.
Bernhard