Filter By String Criteria

What i need to do is basically delete every row in my spreadsheet that contains the criteria "L-0.###" in said column. by ### i am referring to 3 decimals, such as:

L-0.250
L-0.000
L-0.555

and so on. you get the idea.

with the below program i got it working so i can type in:

L-0.***

and have it sort out everything proceeding L-0. ...problem is i need to keep the data such as this:

L-0.53
L-0.00
L-0.0

or basically everything not 3 decimals in with a head of L-0.

here is the macro i'm using:

Sub DeleteRowByString()
'
' DeleteRowByString Macro
' Macro recorded 7/10/2007 by Khenzel
'
' Keyboard Shortcut: Ctrl+Shift+S
'

'Get the criteria in the form of text or number.
vCriteria = Application.InputBox(Prompt:="Type in the criteria that should be removed from matching columns. " _
& "If the criteria is in a cell, point to the cell with your mouse pointer", _
Title:="Ferguson Enterprises, Inc.", Type:=1 + 2)

'Go no further if they Cancel.
If vCriteria = "False" Then Exit Sub

'Get the relative column number where the criteria should be found
lCol = Application.InputBox(Prompt:="Type in the relative number of the column where " _
& "the criteria can be found. (Ex. A=1, B=2, Etc.)", Title:="Ferguson Enterprises, Inc.", Type:=1)

if possibly a modification in my coding to make this work, or simply a criteria i can type in to make it happen.