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>