Concatenate 5 cells into a single But including front zeroes or all zeros, e.i 000

You may try something like this and see if that produces the desired output.

If IsArray(varData) _
Or TypeName(varData) = "Range" _
Or TypeName(varData) = "Collection" Then
    
    'Found to be an, array, range object, or collection
    'Loop through each item in varData
    For Each DataIndex In varData
        'Check if the item isn't empty and if so add it to the result with the delimiter
        If Len(DataIndex) > 0 Then
            If strResult = "" Then
                strResult = DataIndex
            Else
                strResult = strResult & sDelimiter & DataIndex
            End If
        End If
    Next DataIndex
    
Else
    'Found not to be an array, range object, or collection
    'Simply set the result = varData
    strResult = varData
End If

'Output result
ConcatAll = strResult