Non complicarti la vita, usa semplicemente un valore booleano o un Enum.
Enum TipoRicerca
google
msn
End enum
Dim ricerca as tiporicerca=tiporicerca.google 'di default cerca con google
private sub ButtonMsn_click(...)
ricerca=tiporicerca.msn
end sub
private sub ButtonGoogle_click(...)
ricerca=tiporicerca.google
end sub
private sub Cerca()
If ricerca=tiporicerca.google...
end sub