funktion för längd

Hur kan man göra "något" liknande:

check form1.Fornamn

Private Function check(button)
  If Len(button.Text) > 0 Then button.BackColor = &H8080FF
End Function

Får inte in "tänket" i VB.. med windows "utseende"