i keep getting an invalid outside procedure with this portion of my code

Const HOURPRICE As Double = 45
Const TIPPERCENT As Double = 0.065

'******************************************************************
'Order Hours and Print Receipt
'******************************************************************
'Private Sub OrderButton_Click()
Dim numhours As Double
Dim hourcost As Double, tipAmount As Double, totalcost As Double


'***Get number of Hours Worked
numhours = CDbl(txtHours.Value)