sorting collection by 'NumerPozycji' with 2 classes

Modulo: Module1
' I would like to sort collection by 'NumerPozycji'.

' 'NumerPozycji' is a property of a classes

Option Explicit
Dim kolekcjaBlachyIprofile As Collection
Dim blacha02S As BlachyAll, blacha03S As BlachyAll, blacha04S As BlachyAll, blacha05S As BlachyAll
Dim blacha06S As BlachyAll, blacha07S As BlachyAll, blacha08S As BlachyAll
Dim profilSlup As ProfileAll

Sub slup10()
Set kolekcjaBlachyIprofile = New Collection

Set blacha02S = New BlachyAll
blacha02S.NumerPozycji = 4
blacha02S.Grubosc = 5
blacha02S.Szerokosc = 120
blacha02S.Dlugosc = 850
blacha02S.LiczbaSztuk = 1
kolekcjaBlachyIprofile.Add blacha02S

Set blacha03S = New BlachyAll
blacha03S.NumerPozycji = 3
blacha03S.Grubosc = 9
blacha03S.Szerokosc = 48
blacha03S.Dlugosc = 320
blacha03S.LiczbaSztuk = 1
kolekcjaBlachyIprofile.Add blacha03S

Set blacha04S = New BlachyAll
blacha04S.NumerPozycji = 2
blacha04S.Grubosc = 12
blacha04S.Szerokosc = 56
blacha04S.Dlugosc = 320
blacha04S.LiczbaSztuk = 2
kolekcjaBlachyIprofile.Add blacha04S

Set blacha05S = New BlachyAll
blacha05S.NumerPozycji = 5
blacha05S.Grubosc = 16
blacha05S.Szerokosc = 80
blacha05S.Dlugosc = 220
blacha05S.LiczbaSztuk = 5
kolekcjaBlachyIprofile.Add blacha05S

Set blacha06S = New BlachyAll
blacha06S.NumerPozycji = 7
blacha06S.Grubosc = 20
blacha06S.Szerokosc = 240
blacha06S.Dlugosc = 500
blacha06S.LiczbaSztuk = 1
kolekcjaBlachyIprofile.Add blacha06S

Set blacha07S = New BlachyAll
blacha07S.NumerPozycji = 6
blacha07S.Grubosc = 25
blacha07S.Szerokosc = 120
blacha07S.Dlugosc = 260
blacha07S.LiczbaSztuk = 2
blacha07S.SzerokoscD = 80
kolekcjaBlachyIprofile.Add blacha07S

Set blacha08S = New BlachyAll
blacha08S.NumerPozycji = 8
blacha08S.Grubosc = 10
blacha08S.Szerokosc = 80
blacha08S.Dlugosc = 80
blacha08S.LiczbaSztuk = 2
kolekcjaBlachyIprofile.Add blacha08S

Set profilSlup = New ProfileAll
profilSlup.NumerPozycji = 1
profilSlup.Nazwa = "HEB260"
profilSlup.LiczbaSztuk = 2
profilSlup.Masa = 35.6
profilSlup.Dlugosc = 4532
kolekcjaBlachyIprofile.Add profilSlup
End Sub

Class: BlachyAll
Option Explicit

Public Nazwa As String
Public Masa As Double

Public Grubosc As Double
Public Szerokosc As Double
Public SzerokoscD As Double
Public Dlugosc As Double

Public LiczbaSztuk As Integer
Public NumerPozycji As Integer

Const WspolczynnikMasy = 7850

class: ProfileAll
Public Nazwa As String
Public Masa As Double
Public Dlugosc As Double

Public LiczbaSztuk As Integer
Public NumerPozycji As Integer