InputBox Macro

[#1]

Hi people,

i'm trying to right this macro.

Theres no errors in the macro but its not working.

Mybe im righting something that is wrong.

Can someone help?

Sub NewField

          Set a=ActiveDocument.Variables("v0")

          Set b=ActiveDocument.Variables("v1")

          Set c=ActiveDocument.Variables("v2")

          In_val0=a.GetContent.String

          In_val1=b.GetContent.String

          In_val2=b.GetContent.String

          if In_val0<>"" and In_val1<>"" and  In_val2<>"" then

     temp = inputBox("Text")

     ActiveDocument.Variables("v3").SetContent temp, true

     End if

End Sub

Thanks,

Eliano

[CELAMBARASAN]

Hi,

     It is working.Shall i know for what reason you write this code?do you have value in all variable?

Celambarasan