Faça da seguinte maneira colega:

 

coloquei o código em um botão mas você pode fazer da forma que achar melhor

 

 

Private Sub Command1_Click()

 

Dim PathName As String, LineToDelete As String
Dim f As Integer, F2 As Integer, InLine As String, FName2 As String
Dim Drive As String, Path As String, filename As String, Ext As String

' PathName é o arquivo texto que sofrerá a alteração
PathName = "c:\Teste.txt"

' para depois salva-lo novamente.
  FName2 = Drive & Path & Format(Time, "hhnnss") & ".TMP"
  f = FreeFile
  Open PathName For Input As #f
  F2 = FreeFile
  Open FName2 For Output As #F2
  Do While Not EOF(f)
    Line Input #f, InLine
    ' a linha LineToDelete será a linha a ser excluida

    LineToDelete = "excluida"
        If InStr(1, InLine, LineToDelete) = 0 Then
      Print #F2, InLine
    End If
  Loop
  Close #f
  Close #F2
'
' Troca o arquivo antigo pelo novo
'
  Kill PathName
  Name FName2 As PathName
End Sub

 

O código acima ira fazer o seguinte:

 

Procura por uma linha que contenha a palavra "excluida" e retirar esta do arquivo texto veja o exemplo utilizado

 

antes:

veja se era isto que você queria

até colega.

Não sei qual é a duvida mas vou explicar o trecho do código

 

litodelete="NBT"                              ' aqui funciona da seguinte maneira

If Instr(1,inLine,LineToDelete)=0 then ' se a linha não possuir a palavra "NBT"

Print #f2, inline                               ' ela será gravada no arquivo temporário #f2

End If 

 

Ou seja o arquivo temporário irá substituir o arquivo atual, então este trechop do código só

ira colocar as linhas que não possuirem a palavra especifica, entendeu

 

explicando de outra forma o código não apaga a linha desejada, ele apenas deixa de copia-la.