Records The Total Number Of Hours

I'm trying to create a userform which calculates and records the total number of hours a user puts in, however it can not exceed 40 hrs.


Dim intProject1 As Integer
Dim intProject2 As Integer
Dim intProject3 As Integer
Dim intTotal As Integer

intProject1 = txtProject1.Text
intProject2 = txtProject2.Text
intProject3 = txtProject3.Text
intTotal = txtTotal.Text


If txtTotal > 40 Then
txtTotal = txtProject1.Text + _
txtProject2.Text txtProject3.Text
txtTotal.Text = Format(txtTotal, "currency")
Else
MsgBox ["Total exceeds 40 hours."]
End If

If you guys could help me out I appreciate it
Thanks








End Sub
Private Sub lblProject1_Click()