Wert von Variable Abrunden in Ganzzahl

Sub Ganzzahl()
Dim Wert as Integer
Wert = Range("A1).Value   'soll statt 2.5365 den Wert 2.00 sein
End Sub