Using a DataTable with an Expression column, you can create a searching TextBox which shows any output in a RichTextBox. This is a barebones solution, but it demonstrates the method in a short example...
Code:
Public Class Form1
Dim dt As DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dt = New DataTable
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("Word")
dt.Columns.Add("Type")
dt.Columns.Add("Meaning")
dt.Columns.Add("Example")
dt.Columns.Add("Output")
dt.Columns("Output").Expression = "'Type of word: ' + Type + '" & Environment.NewLine & Environment.NewLine & _
"' + 'Meaning: ' + Meaning + '" & Environment.NewLine & Environment.NewLine & _
"' + 'Example: ' + Example"
dt.Rows.Add(0, "house", "noun", "A building for human habitation", "Many people own and live in a house")
dt.Rows.Add(1, "dog", "noun", "A domesticated carnivorous mammal probably descended from the wolf", "The domesticated dog is a common pet in the western world")
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim dv As New DataView(dt, "Word = '" + TextBox1.Text + "'", "", DataViewRowState.CurrentRows)
If dv.Count > 0 Then
RichTextBox1.Text = dv.Item(0).Item("Output").ToString
Else
RichTextBox1.Text = ""
End If
End Sub
End Class