Visual Basic - TextBox como parámetro para una Función

Necesito hacer un par de funciones que me acepten pasarles una caja de texto como parámetro, yo lo intenté así:

Private Sub BotonX_Click ()
FuncionMia (txtParam)
End Sub

Public Sub FuncionMia (txtInter As TextBox)
txtInter.Text = "...."
txtInter.SetFocus
End Function

Pero no me entra en la función, me da un error de que no coinciden los tipos o que el parámetro no es correcto, algo así. Help Please

es facil ,pon esto:

Private Sub FuncionMia (txtInter As Object)
txtInter.Text = "...."
txtInter.SetFocus
End Function

ya veras como funciona.
may

Buenas, yo he hecho una prueba pq en teoria lo tuyo parece estar correcto, y a mi me ha funcionado, he puesto este código

Public Sub func(txt As TextBox)
MsgBox txt.Text
txt.SetFocus
End Sub

Private Sub Command1_Click()
func Text1
End Sub

A mi me funciona bien. Si tienes alguna otra duda dimelo
Adeu