VB6如何将字符串值从form2返回到form 1

Public ReturnString As String

Private Sub btnReturn_Click()
    ReturnString = "返回的字符串值"
    Unload Me ' 关闭Form2
End Sub

Private Sub btnOpenForm2_Click()
    Dim frm As New Form2
    frm.Show ' 打开Form2
    ' 等待Form2关闭
    Do While frm.Visible
        DoEvents
    Loop
    ' 获取返回的字符串值
    Dim returnedString As String
    returnedString = frm.ReturnString
    ' 使用返回的字符串值
    MsgBox "返回的字符串值为：" & returnedString
End Sub