Excel VBA rodada para o número inteiro

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

'print = 6
Guus