VBA - List Box Zeilen einfügen

Private Sub UserForm_Initialize()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngz As Long
With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = "120;120;150"
End With
With Worksheet
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
For lngZeile = 2 To lngZeileMax
Me.ListBox1.AddItem .Range("A" & lngZeile).Value
Me.ListBox1.Column(1, lngz) = .Range("B" & lngZeile).Value
Me.ListBox1.Column(2, lngz) = .Range("D" & lngZeile).Value
lngz = lngz + 1
Next lngZeile
End With
End Sub