Visual Basic - function para devolver propiedad

no se como hacer esto, la idea es que con una function que le paso la fecha cada vez haga una marca en la check correspondiente y que quede desabilidata para modificacion.

Function clicado(fecha) As CheckBox
If IsNull(fecha) Then
clicado = 0
clicado.Enabled = True
Else
clicado = -1
clicado.Enabled = False
End If
End Function

checkbox = clicado(rs("fecha1"))

gracias

Porque mejor no mandas como parametro el checkbox ?

sub clicado(byval fecha as string, byref oCheck as checkbox)
...
end sub