Private Sub StringAfterDigit(ByVal sText As String, _
                ByRef sLeft As String, ByRef sRight As String)
 
Dim i As Long
 
For i = 1 To Len(sText)
    If IsNumeric(Mid(sText, i, 1)) Then Exit For
Next i
 
sLeft = Left(sText, i - 1)
sRight = Right(sText, Len(sText) - i + 1)
 
End Sub

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