This Sample Helps you:

Dim k as Integer,varText As String
MyText="mn,1.2,3,7,son,every"
For k = 0 to UBound(Split(MyText,","))
If IsNumeric(Split(MyText,",")(k)) Then
...