Public Function Hesapla()

Dim I As Integer, J As Integer, ctl As Control

Set ctl = Forms![dddd]![Liste94]

J = ctl.ListCount - 1

listBirim = 0



For I = 1 To J 'for each row

listBirim =listBirim  & vbNewline & ctl.Column(2, I)

Next I

Me.Metin104 = listBirim



End Function

kodu bu şekilde denediğinizde hata veriyor mu?
Metin104 te ne yazıyor