Main module
Option Compare Database
option Explicit

--------

Public strAnswer As String

--------


Public Sub GetQuestion([Several arguments defining question])

--------[Process arguments and come up with an answer string]


strAnswer = [computed string from above]


End Sub


public Sub ShowAnswer


Docmd.Openform "AnswerForm",acNormal,,,acFormReadOnly,acWindowNormal


End Sub