关于模块中变量传递的问题

    各位老师好，我是一个VBA初学者，我现在希望利用模块简化窗体VBA大小，提高程序效率和可靠性，但是对于模块的变量传递不太了解，所以请大家提供宝贵的建议。

模块内代码如下：

Public Function Patent_Basic_Claims(ByVal Patent_Basic_PatentID As String, ByVal Patent_Basic_ID As Integer, ByVal Patent_Claims_Claims As String) As Long

    Patent_Basic_ID = DLookup("ID", "Patent_Basic ", "PatentID" & Chr(61) & Chr(39) & Patent_Basic_PatentID & Chr(39))
'取得表Patent_Basic（主表）中指定ID数值,并赋值与变量Patent_Basic_ID中
    Patent_Claims_Claims = DLookup("Claim", "Patent_Claims", "PatentID" & Chr(61) & Chr(39) & Patent_Basic_ID & Chr(39))
'取得表Patent_Claims（从表）中与Patent_Basic_ID值相关的Claims变量
End Function

我所遇到的问题如下：窗体中空间Text2的数值是待导入的变量Patent_Basic_ID，请问如何将该窗体变量导入某块中，并最后将Claims变量值导出至空间Text3中呢？谢谢