Sub Sample() Dim a(10) As Variant, b(10, 1 To 5) As Variant, c As Variant c = Array(1, 2, 3) MsgBox LBound(a) MsgBox LBound(b, 2) MsgBox LBound(c) End Sub