Public Function НОМЕРА(исходные_данные As String) As String
    Dim arr As Variant
    ReDim arr(1 To Int(Len(исходные_данные) / 6))
    Dim ya As Long
    Dim ii As Long
    For ii = 1 To Len(исходные_данные) - 6 + 1
        If Mid(исходные_данные, ii, 6) Like "######" Then
            If Not Mid(исходные_данные, ii, 9) Like "######,##" Then
                ya = ya + 1
                arr(ya) = Mid(исходные_данные, ii, 6)
            End If
            ii = ii + 6 - 1
        End If
    Next
    If ya > 0 Then
        ReDim Preserve arr(1 To ya)
        НОМЕРА = Join(arr, "; ")
    End If
End Function