我想安全地选择用户表单，而不会意外地加载用户表单的新示例，同时我想避免太多的代码。到目前为止，我已经直接处理了用户表单，即。使用用户表单的标题，例如

Userform1.Show

字符串
但我经常需要或想要在VBA.project中按名称搜索和加载用户表单，因为这样可以简化一些功能。但是由于我使用了这两种变体，根据代码的执行方式，创建了第二个instant。我不想这样。我可以将任何直接调用（Userform1.Show）转换为Show_Userform（“Userform1”），但还有许多其他函数直接使用Userform1，我必须首先将它们全部转换为对象才能继续编写。
我真实的的问题是，当调用UserForm1.Show加载已经加载的示例Show_Userform（“UserForm1”）而不是创建一个新示例时，是否有一种安全的方法？我通读了Difference between declaring a userform as Object vs MSForms.Userform?，这很有帮助，但我的问题没有描述

Sub Test_Works()
Dim obj As Object
    
    UserForm1.Show (False)
    Show_Userform ("UserForm1")

End Sub

x

Sub Test_Creats_Second_Instance()
Dim obj As Object
    
    'Is there a way to avoid that second instance being created?
    Show_Userform ("UserForm1")
    UserForm1.Show (False)

End Sub

Sub Show_Userform(sName As String)

Dim obj As Object
    
    '~~> Set userform if still loaded
    For Each obj In VBA.UserForms
        If StrComp(obj.Name, sName, vbTextCompare) = 0 Then
            obj.Show (False)
            Exit Sub
        End If
    Next obj
    
    '~~> Get userform if not loaded yet
    On Error Resume Next
        Set obj = VBA.UserForms.Add(sName) 'triggers Initialize of the Userform
            obj.Show (False)
    On Error GoTo 0
    
End Sub

的字符串