Use the SPLIT() function

strData = "10K,0,45"
varData = Split(strData, ",")
For intTEmp = 0 To UBound(varData)
MsgBox varData(intTEmp)
Next

OR

strData = "10K,0,45"
Msgbox SPLIT(strData,",")(0)
Msgbox SPLIT(strData,",")(1)
Msgbox SPLIT(strData,",")(2)

If this post helps click Yes
---------------
Jacob Skaria


" wrote:

my values are like

10k,0,45
0,01,h7
14,0,0

How can i get these 3 values separeted by 2 commas via vba ?
Thank you very much in advance.