Biraz daha kurcaladıktan sonra sorunumu çözdüm. Aşağıdaki kodlarla halletim.

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