Basically I want To Count No of Names which are repeated

Private Sub Command1_Click()
Redim Names$(1 to 5)
Names$(1) = "SAM"
Names$(2) = "FREDDY"
Names$(3) = "ROGER"
Names$(4) = "SAM"
Names$(5) = "JIM"


IF I TYPE IN TEXT1.TEXT SAM

THEN TEXT2.TEXT SHOULD GIVE ME RESULT 2

That all i want for now

End Sub

Thanks

Sam F