I need to use InputBox function

How about:

Sub marine()
With Application
N1 = .InputBox(prompt:="Enter first number", Type:=1)
N2 = .InputBox(prompt:="Enter second number", Type:=1)
MsgBox N2 - N1
End With
End Sub