How to remove duplicate items from the Combobox

Hello!
I've tied to look for a solution or formula to my problem but none seems to work.
I have made a userform that searches and displays scores of my students. I have made it to work when it comes to displaying the scores of a particular student. The student's name can be chosen from the combobox. My problem however is that it displays name duplicates. The names of students are taken from a sheet in my excel workbook. There really are duplicates of names in the sheet but they vary according to the month and scores.

Here is my code below of the userform

Private Sub UserForm_initialize()
row_review = 2

    Dim TheSheet As Worksheet
    Set TheSheet = Sheets("Toeic Test Result")
    
    name1.Clear
Do
DoEvents
row_review = row_review + 1
item_in_review = TheSheet.Range("A" & row_review + 1)
If Len(item_in_review) > 0 Then name1.AddItem (item_in_review)

Loop Until item_in_review = ""

'Empty month1
month1.Clear

'Fill month1
With month1
    .AddItem "January"
    .AddItem "February"
    .AddItem "March"
    .AddItem "April"
    .AddItem "May"
    .AddItem "June"
    .AddItem "July"
    .AddItem "August"
    .AddItem "September"
    .AddItem "October"
    .AddItem "November"
    .AddItem "December"
End With

'Empty listening1
tbl1.value = ""

'Empty reading1
tbr1.value = ""

'Empty speaking1
tbo1.value = ""

'Empty writing1
dbl1.value = ""

End Sub

Legends:
combobox name = name1
sheet name = Toeic Test Result

Learning VBA is both interesting and challenging. I hope you guys can help me with this.
Thanks

Thanks! Ill try this one.