help~my trigonometry button are not working

Hi i did create tan,sin,cos button by writing this code,somehow when i want to press,the equal button doesnt show the answer:

Private Sub Trigonemetry_Click(Index As Integer)
scitype = Trigonemetry(Index).Caption
Select Case (scitype)
Case "sin"
lblDisplay.Caption = (lblDisplay.Caption * 3.14) / 180
lblDisplay.Caption = Math.Sin(Val(lblDisplay.Caption))
count1 = 0
Case "cos"
lblDisplay.Caption = (lblDisplay.Caption * 3.14) / 180
lblDisplay.Caption = Math.Cos(Val(lblDisplay.Caption))
count1 = 0
Case "tan"
lblDisplay.Caption = (lblDisplay.Caption * 3.14) / 180
lblDisplay.Caption = Math.Tan(Val(lblDisplay.Caption))
count1 = 0
End Select
End Sub