Remove curly braces from a GUID - [RESOLVED]

[Memnoch1207]

I need a function that will strip the opening and closing curly braces from a GUID...I have tried using the Replace function (only good for replacing one character) and the Instr function (could get this to work)

Any Ideas???

strGUID = "{89eh-84h8-920d-93hd-94jd}"

I need it to remove the { and } and return just the 
89eh-84h8-920d-93hd-94jd value

[EJ12N]

Hi

Hope this helps you should work i just tested it

[color="#0000A0"]Dim[/color] A [color="#0000A0"]As[/color] [color="#0000A0"]String[/color]
[color="#0000A0"]Dim[/color] B [color="#0000A0"]As[/color] [color="#0000A0"]String[/color]
[color="#0000A0"]Dim[/color] C [color="#0000A0"]As[/color] [color="#0000A0"]String[/color]
A = InStr(1, txtStr, "{") + 1
B = InStr(A, txtStr, "}")
C = Mid$(txtStr, A, B - A)
MsgBox C

[TheVader]

If it's always the first and last character of the string this code is easier:

Dim strGUID As String
strGUID = "{89eh-84h8-920d-93hd-94jd}"
MsgBox Mid(strGUID, 2, Len(strGUID) - 2)

[Bruce Fox]

Originally posted by Memnoch1207
I have tried using the Replace function (only good for replacing one character)

For what it's worth:

MsgBox Replace(Replace("{89eh-84h8-920d-93hd-94jd}", "{", ""), "}", "")

Also, If you use Mid() while working with String Data Types, then use the $ like: strBuff = Mid$()



Bruce.

[ironhide]

Or, if {} are always going to be first and last,

strGUID = "{89eh-84h8-920d-93hd-94jd}"
strGUID = Left(strGUID, (Len(strGUID) - 1)
strGUID = Right(strGUID, (Len(strGUID) - 1)

[Memnoch1207]

I went with this code.

Mid$(EID, 2, Len(EID) -2)

but for some reason this

Replace(Replace("{89eh-84h8-920d-93hd-94jd}", "{", ""), "}", "")

was generating an error.

It's all finished, thanks for the help.