Dim ErsterTeil as String
Dim ZweiterTeil as String
Dim TestString as String
 
TestString = "qwert234khgbkh"
StringAfterDigit TestString, ErsterTeil , ZweiterTeil 
 
msgbox ErsterTeil 
msgbox ZweiterTeil

______________________________________________
Es ist nicht immer so, wie es auf den ersten Blick aussieht.