Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Forcing Declaration of Variables

Option Explicit Sub CalcCost() ' revised CalcCost procedure     ' declaration of variables     Dim slsPrice As Currency     Dim slsTax As Single     Dim cost As Currency     Dim strMsg As String     slsPrice = 35     slsTax = 0.085     cost = Format(slsPrice + (slsPrice * slsTax), "0.00")     strMsg = "The calculator total is " & "$" & cost & "."     MsgBox strMsg End Sub