I was thinking of doing a listbox with all of the entries, then sorting the listbox smallest to largest, then taking the top number and using it. Trouble is, I'm stumped on how to make it work. Ideally I'd like it to be done with a loop instead of the listbox.
Here's what I've got so far.
Dim num As Double Dim count As Double Dim sum As Double Dim prompt As String = "Enter a nonnegative number. Enter -1 to terminate." Dim list As String = ListBox1.Text num = CDbl(InputBox(prompt)) Do While num <> -1 ListBox1.Text = CStr(num) Loop
Any ideas on how to do this? Thanks!!