Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myDec As Decimal = 9.75453
Dim myInt As Integer = 0
myInt = CInt(Decimal.Floor(myDec))
End Sub
Math.Round(myDec, 2) would work as well