Visual Basic Find Function In Vector