Hola de antemano gracias por la ayuda, necesito saber cómo puedo hacer para pasar un textbox a una función yo lo hago de la siguiente manera

Private Sub Command1_Click()
   'Nombre del textbox del formulario es textBoxAlterno
   validarControl (textBoxAlterno)
End Sub


Private Sub validarControl(txt As TextBox)
    If TypeOf control Is TextBox Then
        txt.Text = ""
    End If
End Sub

Gracias por el apoyo, encontré el error el cual era al momento del llamado en 6.0 al parecer cuando se envía un control como parámetro se debe enviar sin parétesis, por lo cual el código quedaría de la siguiente manera:

Private Sub Command1_Click()
'Nombre del textbox del formulario es textBoxAlterno
validarControl textBoxAlterno
End Sub

Private Sub validarControl(txt As TextBox)
If TypeOf control Is TextBox Then
txt.Text = ""
End If
End Sub

Un Sub se utiliza cuando no va a haber retorno. Es mejor utilizar Sub en estos casos, es para lo que sirve.