Alttaki kodları kafadan yazdım deneyemedim.
Accesste right fonctionu varmı bilmiyorum lakin mantık böyle.
Deneyiniz sonucu yazın ona göre bakarız.Bilgisayar yanımda değil o yüzden deneyemedim.

Dim x as byte , y as byte

İf left(1,txt1.value) = "(" then
    x= 2
Else
     x=1
End if

İf right(1,txt1.value) = ")" then 
     y = len(txt1.value)-1
Else
     y = len(txt1.value)
End if

Txt1.value = mid(x,txt1.value,y)