Listbox cargados alinear a la izquierda

Tengo un archivo que baje de un foro y lo modifiqué, estos están cargados directamente al listbox y no de las celda. Tiene dos listbox el listbox1 me indique hacia donde quiero alinear las tres columnas al listbox2. Yo lo que quiero es que se cargue automáticamente el listbox2 sin recurrir al lisbox1 con las tres opciones. Desde luego cuenta el módulo clase para poder alinear. Les agradecería mucho para mi proyecto del USERFORMCONTABLE que quiero hacer.

Private Sub alineación()
Dim i As Integer, opción As String
For i = 0 To ListBox2.ListCount - 1
opción = ListBox2.List(i, 1)
Select Case opción
Case Is = "Izquierda"
m_clsLBoxAlign.Left Me.ListBox1, Right(ListBox2.List(i), Len(ListBox2.List(i)) - 8)
Case Is = "Centro"
m_clsLBoxAlign.Center Me.ListBox1, Right(ListBox2.List(i), Len(ListBox2.List(i)) - 8)
Case Is = "Derecha"
m_clsLBoxAlign.Right Me.ListBox1, Right(ListBox2.List(i), Len(ListBox2.List(i)) - 8)
End Select
Next

End Sub

Private Sub CommandButton1_Click()
Dim x, Elegir, i As Integer, seleccion As String
ListBox2.ColumnCount = 2
i = 0
For x = 1 To ListBox1.ColumnCount
Elegir = Application.InputBox("Seleccionar alineación:" & vbCrLf & _
"Izquierda = 1" & vbCrLf & "Centro = 2" & vbCrLf & "Derecha = 3")
If Elegir = Empty Or Elegir = 0 Or Elegir <= 0 Or Elegir > 3 Then
Exit Sub
Else
Select Case Elegir
Case Is = 1
seleccion = "Izquierda"
Case Is = 2
seleccion = "Centro"
Case Is = 3
seleccion = "Derecha"
End Select
ListBox2.AddItem "Columna " & x
ListBox2.List(i, 1) = seleccion
i = i + 1
End If
Next
End Sub