VBA(Excel) primerjava vrednosti

Torej, še ena cvetka: na listu imam en listbox in v njem vrednosti 4,7,8. ko izberem neko vrednost jo primerjam z vrednostjo celice A1. Če spravim v celico A1 vrednost 4 in v listboxu izberem vrednost štiri program ne prepozna, da sta vrednosti enaki. Zakaj ne?

primer:

Private Sub CommandButton1_Click()
ListBox1.Clear

ListBox1.AddItem 4
ListBox1.AddItem 7
ListBox1.AddItem 8

If Str(Range("a1").Value) > ListBox1.Value Then Range("c2").Value = "celica je večja"
If Str(Range("a1").Value) < ListBox1.Value Then Range("c2").Value = "celica je manjša"
If Str(Range("a1").Value) = ListBox1.Value Then Range("c2").Value = "enako"
End Sub

p.s. pa še en gumb sem postavil na stran.