Dim x
Dim carname

carname="Volvo"

Option Explicit
Dim carname
carname=some value