try
![]()
Function givemetext(ByVal x As String) As String Dim iStartPos As Integer, iLastPos As Integer iStartPos = InStr(1, x, "(") iLastPos = InStr(1, x, ")") givemetext = Mid(x, iStartPos + 1, iLastPos - iStartPos - 1) End Function
Thanks guys !
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks