Dim Log(),a,b

a=5
b=0

reDim preserve Log(a,b)

Log(0,0) = "Процесс 0" &"0"
Log(1,0) = "Процесс 1" &"0"
Log(2,0) = "Процесс 2" &"0"
Log(3,0) = "Процесс 3" &"0"
Log(4,0) = "Процесс 4" &"0"
Log(5,0) = "Процесс 5" &"0"


For a=0 to 5 step 1
    For b=0 to 0 step 1 
        MsgBox  "1 Часть "&Log(a,b)
    Next
Next

' Как увеличить размерность многомерного массива ? Здесь появляется ошибка когда увеличиваю b.
a=5
b=1
reDim preserve Log(a,b)

Log(0,1) = "Процесс 0" &"1"
Log(1,1) = "Процесс 1" &"1"
Log(2,1) = "Процесс 2" &"1"
Log(3,1) = "Процесс 3" &"1"
Log(4,1) = "Процесс 4" &"1"
Log(5,1) = "Процесс 5" &"1"

For a=0 to 5 step 1
    For b=0 to 1 step 1 
        MsgBox  "2 Часть "&Log(a,b)
    Next
Next