[RESOLVED] Writing average to TXT

[.paul.]

i'd do it differently:

Public Class Form1
 
    Dim numbers As List(Of Integer)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        numbers = New List(Of Integer)(9)
        For x As Integer = 1 To 10
            Dim number As Integer
            If Integer.TryParse(InputBox("Enter an Integer"), number) Then
                numbers.Add(number)
            Else
                x -= 1
            End If
        Next
        numbers.Sort()
        IO.File.WriteAllLines("numbers.txt", Array.ConvertAll(numbers.ToArray, Function(i) i.ToString))
        Process.Start("numbers.txt")
        MsgBox(numbers.Skip(2).Average)
    End Sub
 
End Class