Private Sub initVariables()
Inicializa las variables
    blnFieldChanged = False
    blnError = False
End Sub
