VBA/Excel/Access/Word/Language Basics/Variable

Assigning Values to Variables

   <source lang="vb">

Sub CalcCost()
       slsPrice = 35
       slsTax = 0.085
       cost = slsPrice + (slsPrice * slsTax)
   
       strMsg = "The calculator total is " & "$" & cost & "."
       MsgBox strMsg

End Sub

</source>
   
  

declare several variables on the same line, separating each variable name with a comma

   <source lang="vb">

Sub declSeveral()

   Dim FullName As String, DateOfBirth As Date, age As Integer

End Sub

</source>
   
  

Using Variables

   <source lang="vb">

Sub AgeCalc()

     Dim FullName As String
     Dim DateOfBirth As Date
     Dim age As Integer
     FullName = "John Smith"
     DateOfBirth = #1/3/1967#
     age = Year(Now()) - Year(DateOfBirth)
     Debug.Print FullName & " is " & age & " years old."

End Sub

</source>