Sub AddZero() Dim arrValues() As Variant Dim i As Long Dim strValue As String

'Объявляем массив значений
arrValues = Array("1234", "56789", "00", "1111", "22", "333333", "444", "5555")

'Проходим по всем значениям в массиве
For i = LBound(arrValues) To UBound(arrValues)
    'Получаем строковое значение текущего элемента массива
    strValue = CStr(arrValues(i))
    'Если длина значения меньше 6 символов, то дописываем в начале 0
    If Len(strValue) < 6 Then
        arrValues(i) = Right("000000" & strValue, 6)
    End If
Next i

'Выводим измененный массив в окно сообщений
MsgBox Join(arrValues, ", ")

End Sub