I don't know what CurrentCell is but this works

Sub a()
Dim Text_Array As Variant
Text_Array = Split(ActiveCell.Value, Chr(44))
MsgBox Text_Array(0)
MsgBox Text_Array(1)
End Sub


--
Jim Rech
Excel MVP