visual basic dim function - Search