I need a little help on the slant words one. I am looking to click the go button and anything i typed in txtsearch will be in my result column. if anyone can help on this that be greatly apprective. thank you

Public Class frmcountrysearch
Dim entryerror As String = "Entry Error"

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
ClearResults()
End Sub
Sub ClearResults()
txtsearch.Clear()
lstresults.Items.Clear()
End Sub

Private Sub btnquit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquit.Click
Close()
End Sub

Private Sub btngo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngo.Click
If txtsearch.Text = "" Then
MsgBox("No Entry", MsgBoxStyle.Critical)
Else
Dim ArrayCountries() As String = IO.File.ReadAllLines("Country.txt")
Dim searchquery = From country In ArrayCountries
Where country = (txtsearch.Text)
Select country
For Each country As String In searchquery
lstresults.Items.Add(country)
Next
End If
End Sub

Private Sub btnascending_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnascending.Click
lstcountries.DataSource = Nothing
lstcountries.Items.Clear()
Dim ArrayCountries() As String = IO.File.ReadAllLines("Country.txt")
Dim Ascendingquery = From country In ArrayCountries
Order By country Ascending
Select country
For Each country As String In Ascendingquery
lstcountries.Items.Add(country)
Next
End Sub

Private Sub btndescending_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndescending.Click
lstcountries.DataSource = Nothing
lstcountries.Items.Clear()
Dim ArrayCountries() As String = IO.File.ReadAllLines("Country.txt")
Dim Descendingquery = From country In ArrayCountries
Order By country Descending
Select country
For Each country As String In Descendingquery
lstcountries.Items.Add(country)
Next
End Sub