Bastard of a toggle button

[Chris 655321]

I'm making a 3 way toggle button, to do sorting. The code I use is:

Dim str As String, tgl As ToggleButton
str = "firstname_table1"
Set tgl = tglFirstName
Select Case tgl.Value
Case True
Me.OrderBy = str & " DESC"
Me.OrderByOn = True
Case False
Me.OrderByOn = False
Case Else
Me.OrderBy = str
Me.OrderByOn = True
End Select

I always get a "Run time error '424' Object Required"

What's the problem??