Private Sub Liste0_DblClick(Cancel As Integer)
Forms!Frm_Mail_Gonder!TxtGonderilecekMail = Forms.Frm_Mail_Gonder!TxtGonderilecekMail & "," & Liste0.Column(1)
If Left(Forms!Frm_Mail_Gonder.TxtGonderilecekMail, 1) = "," Then Forms!Frm_Mail_Gonder!TxtGonderilecekMail = Right(Forms!Frm_Mail_Gonder.TxtGonderilecekMail, Len(Forms!Frm_Mail_Gonder.TxtGonderilecekMail) - 1)
End Sub
Biraz daha kurcaladıktan sonra sorunumu çözdüm. Aşağıdaki kodlarla halletim.