Retrieve data

[Ielamrani]

Hi,
I have a text box with the following data:

contract type: Group (Global IPA)
contract type: Group (UPA)
contract type: Group (QLIMG)
contract type: Group (Atlantic)

I would like to retrieve only the following:

Global IPA
UPA
QLIMG
Atlantic

Is it possible.
Thanks
Ismail

 

[TheAceMan1]

How are ya Ielamrani . . .

Try this function:

[blue]Public Function ConTyp(str As String)
   Dim idx As Integer
   
   idx = InStr(1, str, "(")
   ConTyp = Mid(str, idx + 1, Len(str) - idx -1)
   
End Function[/blue]

See Ya! . . . . . .

 

[PHV]

Another way:
retrievedValue = Mid(Left([TextBox], InStr([TextBox], ")") - 1), 1 + InStr([TextBox], "("))

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Ielamrani]

guys,
Thank you much for your help