How do I compare numbers from a database and then get the highest number to show?

Suop 1 Reputation point

So I need to compare numbers in a txt file that I made and then use a dowhile function to make it so that the numbers get compared to eachother and then only the highest number gets shown using a worksheets.cells. It's my hw for school and some tips would be helpful. here is my code up until now
also grootste means biggest in my language if you needed to know.

Private Sub CommandButton1_Click()

Dim A As Integer
Dim Grootste As Integer

Open "C:\Dorjee\LargestNumber.txt" For Input As #1

Do While Not EOF(1)
Input #1, A
If A < Grootste Then

End If  

Worksheets(1).Cells(1, 1) = A

End Sub

Office Development
Office Development
Office: A suite of Microsoft productivity software that supports common business tasks, including word processing, email, presentations, and data management and analysis.Development: The process of researching, productizing, and refining new or existing technologies.
3,562 questions
0 comments No comments
{count} votes