你猜的没错！问题根源就是VBA中UserForm_Initialize事件的触发时机——当你用Dim fm As New UserForm1声明变量时，第一次引用fm对象（也就是给ValueToPass赋值时）就会自动触发Initialize事件，这时候你还没来得及给myString赋值，所以判断自然失效。

给你几个最优解决方案，按推荐程度排序：

方案一：改用UserForm_Activate事件（最简单） #

把原本在Initialize里的逻辑移到Activate事件中，因为Activate是在窗体显示（Show）时触发，这时候属性已经完成赋值了：

' 窗体后台代码
Private myString As String
Public Property Let ValueToPass(ByVal x As String)
    myString = x
End Property

Private Sub UserForm_Activate()
    If myString = "Hello" Then
        MsgBox "执行Hello对应的操作" ' 替换成你的窗体操作
    Else
        MsgBox "执行其他操作"
    End If
End Sub

按钮代码不需要修改，还是原来的样子：

Sub button()
    Dim fm As New UserForm1
    fm.ValueToPass = "Hello"
    fm.Show
End Sub

方案二：自定义初始化方法（更灵活） #

如果你的窗体逻辑比较复杂，不想依赖Activate事件，可以写一个自定义的初始化方法，赋值属性后手动调用：

' 窗体后台代码
Private myString As String
Public Property Let ValueToPass(ByVal x As String)
    myString = x
End Property

' 自定义初始化方法
Public Sub Init()
    If myString = "Hello" Then
        ' 执行Hello对应的操作
    Else
        ' 执行其他操作
    End If
End Sub

按钮代码需要调整为：

Sub button()
    Dim fm As UserForm1 ' 这里不要用New，避免自动触发Initialize
    Set fm = New UserForm1 ' 手动创建实例（此时Initialize会触发，但你可以不在里面写逻辑）
    fm.ValueToPass = "Hello"
    fm.Init ' 手动调用自定义初始化方法
    fm.Show
End Sub

方案三：调整实例创建顺序（进阶） #

如果你一定要用Initialize事件，可以先创建实例，再通过模块级变量传递参数，但VBA的UserForm没有正式的构造函数，这种方法不如前两种简洁，一般只在特殊场景下使用，这里就不展开细讲了。

总结一下：如果只是简单的窗体显示逻辑，方案一最省事；如果需要更可控的初始化流程，方案二更合适。

内容的提问来源于stack exchange，提问作者mike7mike