Temperature Converter in VB

Option Explicit
Dim TempF As Integer
Dim TempC As Integer

Private Sub cmdExit_Click()
End

End Sub

Private Sub vsbTemp_Change()
TempF = vsbTemp.Value
lblTempF.Caption = Str(TempF)
TempC = CInt((TempF - 32) * 5 / 9)
lblTempC.Caption = Str(TempC)
End Sub

Private Sub vsbTemp_Scroll()
TempF = vsbTemp.Value
lblTempF.Caption = Str(TempF)
TempC = CInt((TempF - 32) * 5 / 9)
lblTempC.Caption = Str(TempC)

End Sub