Reducir las columnas en el ListBox

Hola amig@s, tengo un ListBox que me da información de 3 celdas, (en la primera columna, numeración progresiva del 1 al 100; en la 2° columna, nombre y apellidos; y 3°, el día de nacimiento). Por default las columnas me las regresa del mismo ancho. Necesito
que estas columnas se representen en el ListBox de la siguiente manera: La 1° y
la 3°, se reduzca su ancho solo para 4 caracteres, y la 2°, que es donde
aparece el nombre completo, que sea para 32 caracteres o, en su defecto, lo que sobre de espacio. El código es el siguiente:
agradezco de antemano su colaboración..
mil gracias.
Private SubButton2_Click()
MsgBox " Eligió: ", " & Me.TextBox1.Text & ", " & Me.TextBox2.Text & ", " & Me.TextBox3.Text & "
Unload Me.Show
End Sub
Private Sub CommandButton1_Click()
UserForm2.Hide
End Sub
Private Sub Label2_Click()
End Sub
Private Sub ListBox1_Click()
With Me.ListBox1

Me.TextBox1.Text = .List(.ListIndex, 1)

Me.TextBox2.Text = .List(.ListIndex, 2)
Me.TextBox3.Text = .List(.ListIndex, 3)
End With
End Sub