Mira a ver si te vale esta función:
LLamada: MsgBox QuitaLinea(Results, "\Windows")
(ojo, es sensible a May/ Min) Si quieres que no lo sea se puede, pero hay que pensar un poquito más
Código:
Function QuitaLinea(ByVal Texto As String, CaracteresABuscar As String) As String
'Atención Texto es pasado por valor (ByVal) para poder manipularlo sin modificar la variable original.
Dim Ini As Integer
Dim Fin As Integer
Do While InStr(Texto, CaracteresABuscar) > 0
Ini = InStrRev(Texto, vbCrLf, InStr(Texto, CaracteresABuscar))
If Ini = 0 Then 'Por si es la primera línea, lo iría precedida del retorno de carro
Ini = 1
Else
Ini = Ini + 2 'los dos caracteres del retorno de carro estándar de la línea previa.
End If
Fin = InStr(Ini, Texto, vbCrLf)
If Fin = 0 Then
Fin = Len(Texto) - 1 'Era la última línea y no tenía retorno de carro....
End If
Texto = Left(Texto, Ini - 1) & Mid(Texto, Fin + 2)
Loop
QuitaLinea = Texto
End Function
Un saludo