fejl i formel ved listclick casesætning

Jeg har et problem med listclick i min formel.
Jeg får resultatet uanset at betingelsen ikke er opfyldt. Jeg har brugt nedenstående kode:
Måske er der én der stadig er ædru?
Const a1872 As Currency = 100


Private Sub Form_Load()

With List1
.AddItem "Vælg år"
.AddItem "1872"
.AddItem "1873"
End With
List1.ListIndex = 0


End Sub


Private Sub List1_Click()
Select Case pristal
Case List1.Text = "1872"
glindex = a1872
Label2 = glindex
End Select
End Sub