Visual Basic - Convertir o redondear a cero, números negativos

Convertir o redondear a cero, números negativos

No sé mucho de programación pero creo saber lo que necesito.
Tengo una base de datos access donde los resultados de una consulta pueden ser números negativos o positivos.
Yo necesito que los que son negativos se conviertan en 0 (cero) sin modificar u ocultar los positivos.

Un amigo me ayudó con esta formula pero me dá error de sintaxis:

Function iracero(x)
if (valor < 0)
then valor := 0

End Function

Alguien sabe si mi idea es viable. Y si lo es cual es el error en la funcion?
Porque no tengo la mas minima idea. Solo me estoy guiando por intuicion y sentido comun, con mucha perseverancia y fuerza de voluntad.
Pero poco conocimiento técnico.
Desde ya muchas gracias
Gaby

proba esto...

Public Function IraCero(ByVal Valor As Long) As Long
If Valor < 0 Then
IraCero = 0
Else
IraCero = Valor
End If
End Function

Private Sub Command1_Click()
MsgBox IraCero(-5)
End Sub

Muchas gracias.....

Si lo pones en Access en el campo de la Vista Diseño:

Redondeo: SiInm(Ent([NEGATIVOACERO])<0;0;Ent([NEGATIVOACERO]))

Siendo NEGATIVOACERO el campo del que vamos a tomar los valores. Podríamos leer la fórmula anterior más o menos así:

Si tomamos el valor entero de NEGATIVOACERO menor de 0; que sea 0; si no que sea el valor entero de NEGATIVOACERO

Saludos y que os sea útil!!

Rods