以下の様にすればいいと思います。
タグ.Value = Array("ゴリラ")
複数の場合は以下の様にします
タグ.Value = Array("ズック","ゴリラ")
ただし、存在しなくてもアイテムが増えてチェックがついてしまうので、存在しないアイテムを追加しないように気を付けてください。
タグ.Value = Array("たぶん無いだろうと思うアイテム")
コメントに書いた部分の検証コード
大した内容ではないですが、コメントだと読みにくいのでコードにしました。
試す場合は意味ディエイトウィンドウを表示しておいてください。
Private Sub コマンド7_Click()
Debug.Print "* Sample1 *"
Call Sample1(Me![タグ].Value, Me![タグ].Value)
Debug.Print "--"
Debug.Print "Result: " & UBound(Me![タグ].Value) ' 結果は増えない
Dim aMyArr() As Variant
ReDim aMyArr(2)
Debug.Print "* Sample2 *"
Call Sample2(aMyArr, aMyArr)
Debug.Print "--"
Debug.Print "Result: " & UBound(aMyArr) ' 結果も増える
End Sub
Public Sub Sample1(ByRef a1 As Variant, ByRef a2 As Variant)
'ByRef a1() as Variant では受け取れない
Debug.Print "Before :" & UBound(a1) ' (A)
ReDim Preserve a1(UBound(a1) + 1)
Debug.Print "After1 :" & UBound(a1) ' (A) + 1 の値
Debug.Print "After2 :" & UBound(a2) ' (A) と同じ値
End Sub
Public Sub Sample2(ByRef a1() As Variant, ByRef a2() As Variant)
' ByRef a1 As Variant でも受け取れる(結果は同じ)。
Debug.Print "Before :" & UBound(a1) ' (B)
ReDim Preserve a1(UBound(a1) + 1)
Debug.Print "After1 :" & UBound(a1) ' (B) + 1 の値
Debug.Print "After2 :" & UBound(a2) ' (B) + 1 の値(変更に追随している)
End Sub