Splitting chars and numbers from string [RESOLVED]

I want to split some strings which look like this..

10183bla.ini
2972blokke.ini
298dsfsdfds.ini

I want to get them returned like below...Problem is I never know how many numbers and how many charachters will be in the string.

10183 bla.ini
2972 blokke.ini
298 dsfsdfds.ini

Anyone got any idea how to get this done?

Try something like this - I don't have VB on this box to test it.

Code:

---

Function reformat(str as string) as String
      Dim i as long
   
      i=1
      do while(ASC(mid(str,i,1)) < 65)
            i = i + 1
      Loop
      reformat = left(str, i-1) & " " & right(str, len(str) -i)
End Function

---

Thanks...that works for me...one small change...to make sure I get the full name.

Code:

---

Function reformat(str as string) as String
      Dim i as long
   
      i=1
      do while(ASC(mid(str,i,1)) < 65)
            i = i + 1
      Loop
      reformat = left(str, i-1) & " " & right(str, len(str) -i+1)
End Function

---