Module Module1
Sub Main()
Dim allLines() As String = File.ReadAllLines("d:\negative_keywords.txt")
For Each line As String In allLines
Console.WriteLine(line)
Next
End Sub
End Module
' run:
'
' case study
' close out
' control panel
' free download
' success story
' ...