Hi

If a macro passes the string to this macro it will list the parts to Sheet1
going down from cell A1. If you want the values to go across then change
Cells(j, 1) to Cells(1, j).


Sub ReadCommaSepString(inpString As String)

Dim i As Integer, j As Integer

i = InStr(1, inpString, ",")
j = 1

If i = 0 Then
MsgBox "NO COMMAS IN STRING", 48, ""
Exit Sub
End If

Do While i < 0

ThisWorkbook.Sheets("Sheet1").Cells(j, 1).Value = Left(inpString, i)

j = j + 1

inpString = Right(inpString, Len(inpString) - i)

i = InStr(1, inpString, ",")
Loop

If Not Len(inpString) = 0 Then ThisWorkbook.Sheets("Sheet1").Cells(j,
1).Value = inpString

End Sub


Doug

Shashi Bhosale wrote in message ...
I have a string variable with values comma seperated ,
How to i read each value in Excel using vb code.