Extract unique values from range

Hi all,

I have a range with a maximum of 3 distinct values. How can I extract these 1-3 values with VBA and sort them at the same time?

e.g.

Column A

SS17
SS17
SS17
SS18
SS18
SS18
SS19
SS19

Then I want my code to store these 3 values in ascending order and assign them to a variable.

Dim L1 As String
Dim L2 As String
Dim L3 As String

L1 = "SS17"
L2 = "SS18"
L3 = "SS19"