aktarımda para birimi sorunu

[atillauygun]

Sub Ayristir()

Dim deg1 As String, deg2 As String, i As Long

deg1 = "("
deg3 = ", "

On Error Resume Next

For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
Cells(i, "M") = Split(Split(Cells(i, "B"), deg1)(1), ", ")(0) + 0
Cells(i, "O") = Split(Split(Cells(i, "B"), deg3)(1), ")")(0) + 0
Next i

End Sub

merhaba arkadaşlar bu kod 2,867.51 şu kelide olan rakalmı diğer hücreye aktarırken 2867,51 tl olarak aktarılsın istiyorum bu mümkünmüdür

 

[atillauygun]

b deki satır aslı bu
1.Stok Özel Kod : C ELEKTRONIK (2,867.51, 2,727.33)

 

[atillauygun]

bilen yokmu arkadaşlar raporum geç kaldı :S