Text Box is Not Accessing in Shared Function

I'm Trying to use Shared Function to Display Output in TextBox, but when it is not displaying text, during Debug it shows that it has holding text , but i dont know why it is not showing text on Output
Here is it small code

Code:

---

friend shared withevents wslisten As Winsock_Orcas.Winsock     
protected sub page_Load()         
    session("me") =Me             
    Test2()         
end sub           

Protected Shared Sub TestClass(byval current as _Default) 
    current.TextBox2.Text = "BHB" 
End Sub       

Friend Shared Sub dataarrive( byval sender as object, byval e as winsock_orcas.winsockdataarrivaleventargs) handles wslisten.dataarival 
    TestClass(Session("me"))             
end sub

---

Thanks in Advance