Date Functions VisualBasic Script

Sub Calculate_Weekly_Salary()
    Salary@ = InputBox("Enter your salary.", "Calculate Weekly Salary")
    WeeklySalary@ = Salary / 52
    MsgBox WeeklySalary
End Sub