Option Explicit
Sub Main()

    MsgBox AngehängteZahlenAbschneiden("TEXTMARKE12")

End Sub

Function AngehängteZahlenAbschneiden(ByVal s As String) As String
    
    While IsNumeric(Right(s, 1))
        s = Left(s, Len(s) - 1)
    Wend
    
    AngehängteZahlenAbschneiden = s
    
End Function