Excel VBA раунд до всего числа

Sub Round1()
 
debug.print Round(6.9, 0)
 
End Sub

'print = 6
Guus