Dim textBoxText = TextBox1.Text

Dim dt As New DataTable()

Dim col As DataColumn = dt.Columns.Add("Title")

Dim row As dt.NewRow
row("Title") = textBoxText

dt.Rows.Add(row)