pek kısa sayılmaz ama denenebilir)

    For x = 1 To 11 Step 2

        snc = snc + Mid(Me.Barkod, x, 1) + Mid(Me.Barkod, x + 1, 1) * 3

    Next x

    Me.barkod2 = Me.Barkod & (Int((snc / 10) + 1) * 10) - snc