Visual Basic - Enviar como parametro un control

Necesito crear una funcion a la que le envie una caja de texto y le ajuste dos propiedades, he intentado esto:

Private Sub txtNif_GotFocus()
cambiar (txtNif)
End Sub

Private Sub cambiar(txt As TextBox)
txt.SelStart = 0
txt.SelLength = Len(txt)
End Sub

Me da error de no coincidencia de tipos. Espero que me podais ayudar ya que tengo que cambiar esas dos propiedades a muchas cajas de texto.
Saludos

pues tu error es el siguiente...

estas diciento que txt es una caja de texto...
primero pones que sleccione desde 0 hasta la longitud de txt...

txt no es un control, la referencia correcta seria

txt.selstart=0
txt.sellength = len(txt.text)

Espero y te sirva de ayuda!!!

Saludos

txt si es un control puesto que lo declaro en la funcion como control, ahi no da el error.
El error da al enviar como parametro el textbox cuando llamo a la funcion
cambiar
cambiar (txtNif) \'el txtnif no se puede enviar asi?
Espero que alguien me pueda decir como se envia un control a una funcion o como se hace una funcion para que te cambie varias propiedades de un control que se le pasa por parametro

no se exactamente lo que quieres pero poniendolo así, si funciona

Private Sub txtNif_GotFocus()
cambiar
End Sub

Private Sub cambiar()
txt.SelStart = 0
txt.SelLength = Len(txt)
End Sub

saludos

hola
cambiar txtnif 'sin parentesis

Me faltaba quitar los parentesis.
Ya funciona todo bien. Gracias