这是我的子（）：
Sub SendEmail()
MyPrompt = "want to add a message?"
Mysubject = PopMessage(MyPrompt)
End Sub
这是我的函数（）：
Public Function PopMessage(ByVal Mypromt As String) As String
'Open a existing userform with a MyPrompt MsgBox and catch user text
FormName = "UserForm1" ' choose here the desired UserForm
Dim Mytext As String
Mytext = ""
On Error Resume Next
MsgBox (MyPrompt) ' only for debuging
Response = MsgBox(Prompt:=MyPrompt, Buttons:=vbYesNo)
If Response = vbYes Then
If UserForm1 Is Nothing Then ' we want to check if userform exists
MsgBox ("Le Formulaire n'existe pas")
Exit Function
End If
Unload UserForm1 ' first we clear the userform
UserForm1.Show
Mytext = UserForm1.TextBox1.Text
End If
End Function
两者都在理智的工作簿中。MsgBox(MyPrompt) 返回空。谢谢你的帮助。