Üst Onluğa Yuvarla

kolay gelsin arkadaşlar,
herhangi bir rakamı üst onluğa nasıl yuvarlayabilirim.
örneğin

mevcut        olması gereken
51 ============>>>60
45============>>>50
59=============>>60

olacak

(Int(5.1/10)+1)×10

olmadı sayın halil ustad

sayi=89
int(sayı)
yazdığımda aynı sayıyı veriyor

Tam olarak ne yazdınız?

MsgBox Int(CLng(Mid(Me.Barkod, 2, 1)) + CLng(Mid(Me.Barkod, 4, 1)) + CLng(Mid(Me.Barkod, 6, 1)) + CLng(Mid(Me.Barkod, 8, 1)) + CLng(Mid(Me.Barkod, 10, 1)) + CLng(Mid(Me.Barkod, 12, 1))) * 3 + CLng(Mid(Me.Barkod, 1, 1)) + CLng(Mid(Me.Barkod, 3, 1)) + CLng(Mid(Me.Barkod, 5, 1)) + CLng(Mid(Me.Barkod, 7, 1)) + CLng(Mid(Me.Barkod, 9, 1)) + CLng(Mid(Me.Barkod, 11, 1))

(Int(89/10)+1)×10 gibi yazıp denediginizde sonuç kaç cikiyor