List1.AddItem CStr(Feld(i, j))

  Dim Txt As String
 
  Txt = ""
  For i = LBound(Feld, 1) To UBound(Feld, 1)
    For j = LBound(Feld, 2) To UBound(Feld, 2)
      Txt = Txt & CStr(Feld(i, j)) & vbCrLf
    Next j
  Next i
  Text1.Text = Txt

Gruss,

Zardoz