Macro to INSERT a STRING in SEQUENCE or as the LAST entry

Its been a while,

I have a column of order references so: MVC01, MVC02, MVC03, MVC03A, MVC04, MVC04A

I want to be able to add a new entry in order, so MVC02A goes after MVC02. or if it is a new entry goes to the end. I want to insert a new row as opposed to move cells down.

ive looked at match functions but that is using numbers, I saw a crazy long function for a string but thought there must be an easy way????

this is what I have:

Private Sub locaterow()


Dim ianswer As String
Dim i%, m

ianswer = InputBox("oi")

With Range("A:A")
    i = .Row

    m = Application.Match(ianswer, .Value, 1)
    
    m = Application.Match

    If Not IsError(m) Then i = .Cells(1, 1).Offset(m).Row
End With

MsgBox i


End Sub

any help much appreciated


Thanks

Jim