sopt

' Não se esqueça de importar está linha abaixo!
Imports System.Collections

Public Class Form1
    Dim numeros As New ArrayList
    Dim total As Integer = 0

    ' Botão CONFIRMAR
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If IsNumeric(txtboxnum.Text) Then
            numeros.Add(txtboxnum.Text)
            txtboxnum.Clear()
        Else
            MessageBox.Show("Atenção, introduza um NÚMERO")
            txtboxnum.Focus()
            Return
        End If

    End Sub

    ' Obtém o maior número
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim maiorNumero As Integer = 0
        For Each numero As Integer In numeros
            total += numero
            maiorNumero = Math.Max(maiorNumero, numero)
        Next

        txtMaior.Text = maiorNumero.ToString()
    End Sub

    ' Obtém a MÉDIA
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim media As Integer = total / numeros.Count

        txtMedia.Text = media.ToString()
    End Sub
End Class