vb 数据在一个窗口输入,在另一个窗口中显示

在第一个窗口做一个GetData函数，显示窗体，并返回数据
另一窗口调用它得到返回值

大致写了下
form1里
dim s as string
public function GetData() as string
me.show vbmodal
GetData=s
end function
private sub command1_click
s=text1.text
me.hide
end sub
form2里调用
dim frm1 as new form1
s=frm1.getdata()
set frm1 = nothing