Extracting portions of a string separated with dash

[mandukes]

Hi!,
My variable has the string in the following format

key = ABCD8E-FG6HI-7JKLMN  (alpha numeric) separated with dash

Note that the length of the key is not fixed.

Required output

partA = ABCD8E
PartB = FG6HI
PartC =7JKLMN

Thank you!

 

[AlphaFrog]

Consider using the Split function.

    [COLOR=darkblue]Dim[/COLOR] strKey [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR], vKeys [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Variant[/COLOR]
    
    strKey = "ABCD8E-FG6HI-7JKLMN"  [COLOR=green]'(alpha numeric) separated with dash[/COLOR]
    vKeys = Split(strKey, "-")
    
    MsgBox vKeys(0) & vbLf & vKeys(1) & vbLf & vKeys(2)


    partA = vKeys(0)
    PartB = vKeys(1)
    PartC = vKeys(2)

 

[mikerickson]

part A is =TRIM(LEFT(SUBSTITUTE(A1,"-",REPT(" ",255)),255))

part B is =TRIM(MID(SUBSTITUTE(A1,"-",REPT(" ",255)),255,255))

part C is =TRIM(RIGHT(SUBSTITUTE(A1,"-",REPT(" ",255)),255))

 

[mandukes]

Consider using the Split function.

    [COLOR=darkblue]Dim[/COLOR] strKey [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR], vKeys [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Variant[/COLOR]
    
    strKey = "ABCD8E-FG6HI-7JKLMN"  [COLOR=green]'(alpha numeric) separated with dash[/COLOR]
    vKeys = Split(strKey, "-")
    
    MsgBox vKeys(0) & vbLf & vKeys(1) & vbLf & vKeys(2)


    partA = vKeys(0)
    PartB = vKeys(1)
    PartC = vKeys(2)

Thank you so much!