Lotus Notes - Condicion IF en un campo.

Buenas tardes,

Necesito que me echen una mano con la siguiente cauistica:

Tengo un campo (PrecioMaximo1) con una cantidad X. Por otro lado tengo un campo (PrecioComprasO) que el usuario debe rellenar PERO debe dejar rellenarlo si la cantidad introducida es mayor que la que hay dentro del campo preciomaximo1. Por favor, alguien me puede echar una mano.

Muchas gracias.

En el evento EXITING del campo preciocomprasO copia el siguiente còdigo:

Sub Exiting(Source As Field)
Dim ws As NotesUiWorkspace
Dim uiDoc As NotesUIDocument
Set ws = New NotesUIWorkspace
Set uiDoc = ws.CurrentDocument
If uiDoc.FieldGetText("preciocompras0") < uiDoc.FieldGetText("preciomaximo1") Then
Messagebox "el precio compras es menor que el precio maximo.",_
0+16 , "Atención"
uiDoc.GotoField("preciocomprasO")
End If
End Sub