いつも大変お世話になっております。
しばらく考えましたがよくわからず質問します。。

　Class Form2に設置されているButton1_Clickしたら
　Class Form2に設置されているtextBox1.textを取得して
　べつclassのSubでtextBox1.textを取得してG_Dataに代入したいです。
下記がその該当のコードです。
  
MsgBox(g_Data)は空白で表示されます。
宜しくお願いいたします。
　

'-------------------------------------------
Public Class Form2
    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'インスタンスの作成(ClsHuman型)
        Dim human1 As New BarcodeReader
        'メソッドの呼び出し
        human1.DataReceived()
    End Sub
End Class

'-------------------------------------------
 Public Sub DataReceived()
        Dim frm2 = New Form2
        g_Data = frm2.TextBox1.Text
        MsgBox(g_Data)
    End Sub
End Class
'-------------------------------------------