how to get separate value in string between parenthesis

[sal21]

... and assign to the fisrt item to LAT end second value to LNG

in my case:

LAT=40.49523
LNG=16.455915

note:
- LAT and LNG are String dimensioned
- the lenght of item between parenthesis are variable

[HansV]

Code: Select all

    Dim p1 As Long
    Dim p2 As Long
    Dim v As String
    Dim a() As String
    p1 = InStr(STRADE, "(")
    p2 = InStr(p1 + 1, STRADE, ")")
    v = Mid(STRADE, p1 + 1, p2 - p1 - 1)
    a = Split(v, "-")
    LAT = a(0)
    LNG = a(1)

[sal21]

Code: Select all

    Dim p1 As Long
    Dim p2 As Long
    Dim v As String
    Dim a() As String
    p1 = InStr(STRADE, "(")
    p2 = InStr(p1 + 1, STRADE, ")")
    v = Mid(STRADE, p1 + 1, p2 - p1 - 1)
    a = Split(v, "-")
    LAT = a(0)
    LNG = a(1)