ExcelVBAで配列の初期化するなら　Arrayするっきゃない

こんな感じ。

Dim userAddress As Variant

userAddress = Array("東京都", "北海道", "愛知県")

ネタ元

• http://www.officepro.jp/excelvba/array/index6.html