How to use string inside a class in a sub form

See more:

VB

I have two Form and One Class, Both form has been connect via class A

Main Form One text box get the user input from text box and send it to edit for Class A,
ClassA Doing Some Modification and send to TextBox in Form2 to Display OutPut

I have tryed below Code But it shows Nothing

'01 ///Inside Form One Main Form
'------------------------------------------------------------------------------------------
Public Class Form1

    Private clasAObj As New ClassA

    '// Send to edit Class
    Sub sendToEdit()
        clasAObj.editText(TextBox1.Text.ToString)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Form2.Show()
    End Sub
End Class


'----------------------------------------------------------------------------------------------------------
'02. //inside ClassA



Public Class ClassA

    Dim form2Obj As New Form2

    Sub editText(ByVal OriginalText As String)
        '/// Edit Like Something
        Dim EditText As String = OriginalText
        '/// Send to show form two text box
        form2Obj.ShowText(EditText)
    End Sub

End Class


'---------------------------------------------------------------------------------------------------------
'03. // Inside Form2

Public Class Form2
    Sub ShowText(ByVal receiveText As String)

        TextBox1.Text = receiveText.ToString & vbCrLf

    End Sub

End Class

if i send to msg mox it Shows. but for text its not working

Please help Me