Объявление массива

[angol89]

Здравствуйте!

Подскажите пожалуйста, как объявить строковый массив и получить его длину в макросе MS Word?

При коде ниже он ругается на Arr.Length и выдает ошибку Compile error: Invalid Qualifier

 Dim str, str1, str2 As String
            Dim LastNonEmpty As Integer
            Dim Arr() As String
            str = "aaaasdf dddddd ddddddd ddddddd"
            Arr = Split(str)
            LastNonEmpty = Arr.Length

что я не так сделал?

Заранее спасибо

[shanemac51]

Sub mm()
 Dim str, str1, str2 As String
            Dim LastNonEmpty As Integer
            Dim Arr() As String
            str = "aaaasdf dddddd ddddddd ddddddd"
            Arr = Split(str, " ")
            LastNonEmpty = UBound(Arr, 1) - LBound(Arr, 1)
            Debug.Print LastNonEmpty
            ''''''''''''''otw=3
End Sub