I reached, what i wanted....
finally.. i did that....
Dim contents AsString = "head,1,2,hands,5,fingers,9,stars,-2,debts,-10,subtract"
Dim abc As Array
abc = contents.Split(",")
Dim z, hold As Integer
For z = 0 To UBound(abc) - 1
If Integer.TryParse(abc(z), 1) = True Then
hold = CInt(abc(z))...