Como crear una función de if en visual para comparar una celda con un valor y si es igual me envíe a

Buenas tardes mi duda es como puedo crear una función de if en visual basic para comparar el valor de una celda con un valor que yo determine y si es igual que me envíe a otra celda que yo elija.

ejemplo

if (A1=1) goto dia1 else goto final

dia1:

range(f17).select

final:

end sub