send textbox reference med til funktion

Jeg har en funktion der sætter dags dato i en textbox.
Men jeg vil gerne have at jeg kunne kalde den funktion med en hvilken som helst textbox som rerernce.

Hvordan gør jeg det?

Function dagsdato(byVal fieldName) as boolean
  dim dagen as date
  dagen = now.tostring("dd-MM-yyyy")
  textbox1.text = dagen ' her vil jeg gerne kunne skrive et hvilket som helst feltnavn, jeg medsender
  dagsdato = true
End Function

Men