Instead of a single answer$ field, you can use 4 answer$s, from zero to three.
This could be handy when you want to use a For..Next loop to read the answers, for instance:
q.TQuestion = New TQuestion q\answer$[0] = 'option 1' q\answer$[1] = 'option 2' q\answer$[2] = 'option 3' q\answer$[3] = 'option 4'
This could be handy when you want to use a For..Next loop to read the answers, for instance:
For i = 0 to 3 print q\answer$[i] Next