Как сохранить и отобразить номер из списка в текстовое поле

---

поэтому я хочу знать, как ввести число из текстового поля, чтобы сохранить его в списке, и когда элемент в списке выбран, а затем отобразить число в том же текстовом поле, пользователь ввел число
Я должен использовать массив, чтобы сделать это. Помогите

Что я уже пробовал:

Dim arrMarks(5) As String
Dim intMarks As Integer

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
'Terminate program
Me.Close()

End Sub

Private Sub frmMarks_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

lstStudents.SelectedIndex = 0

End Sub

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
txtMark.Text = ""
txtMark.Select()

If lstStudents.SelectedIndex <= 4 Then
lstStudents.SelectedIndex = lstStudents.SelectedIndex + 1

ElseIf lstStudents.SelectedIndex = 5 Then
lstStudents.SelectedIndex = 0
End If

arrMarks(lstStudents.SelectedIndex) = txtMark.Text
For intMarks = 0 To 5
arrMarks(0) = txtMark.Text
arrMarks(1) = txtMark.Text
arrMarks(2) = txtMark.Text
arrMarks(3) = txtMark.Text
arrMarks(4) = txtMark.Text
arrMarks(5) = txtMark.Text
Next



End Sub

Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
For intMarks = 0 To 5
lblmark.Text = arrMarks(intmarks)
Next
End Sub

---