insert value in field via macro

[Anonymous]

Hi,

I am trying to create a macro to insert the value of a variable declared in QV in the fields of a column.

I tried this way but it is wrong

sub ChangeValue

     if ($ (variable) = "Y")

     ActiveDocument.Fields ("Field1"). SetContent "y"

     if ($ (variable) = "N")

     ActiveDocument.Fields ("Field1"). SetContent "n"

end sub

I am not good in VB script, can anyone help me? thanks