Notes

Public Class Form1
Private entries As New List(Of String)

Private Sub AddButton_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim name As String = TextBox1.Text
Dim course As String = TextBox2.Text
Dim year As String = TextBox3.Text

If String.IsNullOrWhiteSpace(name) Or String.IsNullOrWhiteSpace(course) Or String.IsNullOrWhiteSpace(year) Then
MessageBox.Show("Please fill in all fields.", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End If

Dim entry As String = $"{name}|{course}|{year}"
entries.Add(entry)

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub

Private Sub DisplayButton_Click(sender As Object, e As EventArgs) Handles Button2.Click
If entries.Count = 0 Then
MessageBox.Show("No entries to display.", "Display Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If

Dim nameWidth As Integer = 20
Dim courseWidth As Integer = 20
Dim yearWidth As Integer = 10

Dim header As String = "Name".PadRight(nameWidth) & "Course".PadRight(courseWidth) & "Year".PadRight(yearWidth)
Dim sb As New System.Text.StringBuilder()
sb.AppendLine(header)
sb.AppendLine(New String("-"c, nameWidth + courseWidth + yearWidth))

For Each entry In entries
Dim parts() As String = entry.Split("|"c)
If parts.Length = 3 Then
Dim namePart As String = parts(0).PadRight(nameWidth)
Dim coursePart As String = parts(1).PadRight(courseWidth)
Dim yearPart As String = parts(2).PadRight(yearWidth)
sb.AppendLine(namePart & coursePart & yearPart)
End If
Next

MessageBox.Show(sb.ToString(), "Display Information")
End Sub
End Class