VBA获取具有包含列表框控件名称的字符串的值

Question

傻问题，但我迷路了。
在VBA函数中，我有一些文本，其中包含表示列表框控件名称的字符串（ctrlName是包含控件名称的变量）。
VarText应该从列表框中返回选定值（行/列）的值（此处发生错误）。

Function getString_email(..)

Dim ctrlName As String
Dim getString_email  as String
Dim sBody as String
Dim ctl As Control
Dim frm As Form
...
...
sBody = RS("Body")
ctrlName = Mid(sBody, StartVar, EndVar - StartVar)
Set frm = Forms("frmCatalogue")    
    VarText = frm.Controls(ctrlName)
Set frm = Nothing
...
... 
getString_email = Replace(sBody, ctrlName, VarText)
...

错误：运行时错误2465。找不到表达式中引用的字段。

任何帮助都会很棒！