The Currency data type allows for positive and negative numbers with up to 15 digits to the left of the decimal point and 4
Sub Calculate_Weekly_Salary() Salary@ = InputBox("Enter your salary.", "Calculate Weekly Salary") WeeklySalary@ = Salary / 52 MsgBox WeeklySalary End Sub