Doppelklick Uhrzeit setzen

HI Leute
Ich hab da einen Code mit dem ich die Uhrzeit peer Doppelklick in eine Zelle eintragen kann. Wie kann ich den Code ändern das die Minuten aufgerundet bzw. abgerundet werden.
Zb.11:43 soll dann 11:40
11:46 soll dann 11:50
Gruß Mike

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Address = "$F1" Then Range("F1").Value = Date
If Not Intersect(Target, Range("A3:A34,C3:C34")) Is Nothing Then
With Target
.Value = Time
End With
Cancel = True
End If
End Sub