Increase count by 1 but ignore multiple characters to the left

[Watchdawg]

I've seen a few things around for something similar, but I'm starting to wonder if this is possible...

I formula that finds the last filled cell in range "A". That cell contains the following text "DEV-19-1". I need to increment the last digit (will eventually be 2 digits), but ignore the first 7 characters. I was seeing a lot about using the left/mid/right commands but I don't think that will do what I need it to. Here's the current formula:

TextBox1.Value = Sheets("Log").Range("A:A").End(xlDown).Value + 1

Any thoughts or am I going about this all wrong?
*quick update, I will need to retain those first 7 characters in the userform, so the form would return DEV-19-2

 

[njimack]

Something like this...

Sub x()
Dim str As String
Dim Increment As Long
With Sheets("Log").Cells(Rows.Count, 1).End(xlDown)
    str = Left(.Value, 7)
    Increment = Replace(.Value, str, "") + 1
End With
TextBox1.Value = str & Increment
    
End Sub

 

[Fluff]

How about

   Dim St As String
   St = Sheets("Log").Range("A" & Rows.Count).End(xlUp).Value
   Me.TextBox1.Value = Left(St, InStrRev(St, "-")) & Right(St, Len(St) - InStrRev(St, "-")) + 1

 

[Watchdawg]

PERFECT! Both answers worked well! Thank you both so much! That was driving me batty

 

[Fluff]

You're welcome & thanks for the feedback