Convert Kilos to Pound using Sub Procedure VBScript Project

Option Explicit

Dim inputWeight
inputWeight = CDbl(InputBox("Enter the weight in Kilos"))

Call ConvertWeight(inputWeight)
Call EndScript

'Sub procedure starts
Sub ConvertWeight(Kilos)
    Dim Pounds
    Pounds = 2.205* Kilos
    MsgBox "The weight of " &Kilos &" Kg is equivalent to " &Pounds &"lbs"
' Sub Procedure ends
End Sub


Sub EndScript()
    MsgBox "Thank you for using our script"
End Sub