To identify the position of the first alphabetic letter in a string and take all values before that letter

[AnTIW]

Hello,
I am trying to implement within a macro blow how to identify the position of the first alphabetic letter a string and take all values before that letter.
This is a part the macro below:
If xsplit Like "*,*" Then
For I = 1 to 100
'line below where I want to do that
Sheets("x").Cells(I,1) = Trim(Split(xsplit, ",")(I-1))
Next I

Example of the data in one cell:
1234 5679123 data sample, 123456789 data, 123456 12345678 data sample,

Thank you so much for your help

 

[Peter_SSs]

Would it be possible for one of you to try to implement it in the script that I posted above?

Without knowing what all your data is like, how it is laid out and exactly what you are trying to achieve, it is very difficult to try to read somebody else's code and from that work out exactly what it is trying to do.