Sub ExampleDifference
Dim siW1 As Single
Dim siW2 As Single
siW1 = Int(InputBox$ ("Please enter the first amount","Value input"))
siW2 = Int(InputBox$ ("Please enter the second amount","Value input"))
Print "The difference is "; Abs(siW1 - siW2)
End Sub