Private Sub Form_Load()
    Dim View As Variant
    Dim counter As Integer

    View = Split(ReadFile("HighScore1.txt"), vbCrLf)

    For counter = LBound(View) To UBound(View)
        lstBox.AddItem View(counter)
    Next counter

End Sub

Public Function ReadFile(FullFilePath As String) As String
   
    Dim ReadBuffer As String * 1024
    Dim FFSlot As Integer
   
    FFSlot = FreeFile
   
    Open FullFilePath For Binary As FFSlot
        While EOF(1) = False
            Get FFSlot, , ReadBuffer
            ReadFile = ReadFile & ReadBuffer
        Wend
    Close #1

End Function