Parsing into three pieces

Do you need VBA ?

A2:
=LOOKUP(9.99E+307,LEFT(SUBSTITUTE(A1,",","."),ROW($1:$15))+0)

A3:
=LEFT(REPLACE(A1,1,LEN(TEXT(A2,"0.00")),""),3)

above assumes

a) no leading zeroes in first number

b) first number always has 2 decimals (denoted by comma delimiter)

c) first number is followed by 3 letter currency code

all can be adapted as necessary.

Originally Posted by DonkeyOte

Do you need VBA ?

Yes, I do need VBA. I was able to get it to work in a normal excel sheet, but not in visual basic. There are actually multiple lines of data which require the same formatting and is currently in column K of my worksheet.

Here is a sample of additional lines:
102341,80USD0,00
31686,37USD0,00
42541,81USD0,00
89334,48USD0,00
92535,84USD0,00

The script I was attempting to use was:

Columns("K:K").Select
Range("K1").Select
For i = 1 To Selection.CurrentRegion.Rows.Count
ActiveCell.FormulaR1C1 = "=LOOKUP(9.99E+307,LEFT(SUBSTITUTE(K1,",","."),ROW($1:$15))+0)"
ActiveCell.Offset(1, 0).Select
Next

What I need is for the currency "USD" to go into column I and the number (ex.102,341.80) to remain in column K.

Per Forum Rules - please always use CODE tags when posting VBA.

Numerous approaches - no doubt plenty more efficient than the below but I'm rushing off I'm afraid so not much thought has gone into the below I'm afraid

Sub Example()
    Dim vStr As Variant, vVal As Variant, lngVal As Long, dblVal As Double
    With Sheets("Sheet1")
        With .Range(.Cells(1, "K"), .Cells(.Rows.Count, "K").End(xlUp))
            vStr = Application.Transpose(.Value)
            ReDim vVal(1 To UBound(vStr))
            For lngVal = LBound(vStr, 1) To UBound(vStr, 1) Step 1
                vVal(lngVal) = Format(Val(Replace(vStr(lngVal), ",", ".", 1, 1)), "0.00")
                vStr(lngVal) = Left(Replace(Replace(vStr(lngVal), ",", ".", 1, 1), vVal(lngVal), "", 1, 1), 3)
            Next lngVal
            .Value = Application.Transpose(vVal)
            .Offset(, -2).Value = Application.Transpose(vStr)
        End With
    End With
End Sub

change Sheet reference as per your requirements

Is the trailing value always 0,00 ? (and/or always has 2 decimals)