Вставить значения в формулу через inputbox - VBA/Excel

Sub a_Prob()
Dim y As Variant
Dim x As Variant
'===================================================================================
  Message = "ВВЕДИ ПЕРВОЕ ЧИСЛО"
  x = Application.InputBox(Message, Default:="0:00:25")
  If x = "" Then x = "0:00:00"
'===================================================================================
 Message = "ВВЕДИ ВТОРОЕ ЧИСЛО"
  y = Application.InputBox(Message, Default:="0:10:00")
  If y = "" Then y = "0:00:00"
'===================================================================================
 ActiveSheet.Range(Cells(3, 2), Cells(3, 2)).Formula = "=y-x"
End Sub