Código de Visual Basic para Aplicaciones - VBA llenar ListBox con ajuste de columnas adecuadamente

Private Sub llenarListBox()

'Para el ejemplo, el formulario debe contener un control ListBox llamado ListBox1.

'Observe que para ajustar los textos a la izquierda, se usa la función Space

    Me.ListBox1.Height = 80

    Me.ListBox1.Width = 380

    Me.ListBox1.ColumnCount = 5

    Me.ListBox1.TextAlign = fmTextAlignRight ' los montos quedarán ajustados a la derecha

    Me.ListBox1.ColumnWidths = "150 pt;90 pt;80 pt;40 pt;2 pt"

    Dim monto1 As Double, monto2 As Double

    monto1 = 1000.25

    monto2 = 10

    For i = 1 To 15

        Me.ListBox1.AddItem

        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = "Texto largo en fila " & i - 1 & " con columna 0" & Space(30)

        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = "Texto corto (" & i - 1 & ", " & "1)" & Space(20)

        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = VBA.Format(monto1 * i ^ 2, "#,##0.00")                                          'PVPUd

        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = VBA.Format(monto2 * i ^ 2, "#,##0.00")                                           'PVPUd

    Next i

End Sub