Dim a as variant
Dim i as long
 
For i = 0 to list1.listcount-1
  A = Split(List1.list(i),",")
  txtTelefon.Text = A(0)
  txtTFax.Text = A(1)
  txtTeMail.Text = A(2)
next i

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)