Delete Characters More/and Less Than

I have a keyword list in ColA. about 25,000 phrases.
What I want to do is create a macro button.
when i click on it a pop up box would appear called "Deleting Characters"
It will have to 2 rows, 1 saying "More Than",, the other saying "Less Than"

So, beside these words are input boxes.
So I can type the numbers "2" and say "50"
So it will look at all the rows of data in my ColA (Always from A3 downwards)
and deletes all rows with less than 2 characters and more than 50 characters.
When it is finished a floating box appears saying
"123 Characters Less Than 2 Deleted"
"101 Characters More Than 50 Deleted"

Sub NoOfCharacters()
Dim lastrow As Long, TotP, TotC, AvC
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
If lastrow < 4 Then
MsgBox "Nothing to sort!"
Exit Sub
End If
Range("B1").EntireColumn.ClearContents
Range("B3").Formula = "=LEN(A3)"
Range("B3").AutoFill Destination:=Range("B3:B" & lastrow)
Range("A3:B" & lastrow).Sort key1:=Range("B3"), order1:=xlAscending, Header:=xlGuess
TotP = lastrow - 2
TotC = Application.Sum(Range("B3:B" & lastrow))
AvC = TotC / TotP
MsgBox "Total No Phrases: " & Chr(9) & Chr(9) & Chr(9) & TotP & Chr(13) & "Total No Characters: " & Chr(9) & Chr(9) & TotC & Chr(13) & "Avg No Characters Per Phrase: " & Chr(9) & AvC
End Sub