Option Explicit
Dim note(1 To 100) As String
Dim nummer As Integer
 
Private Sub cmdAnzeigen_Click() 'wenn man auf anzeigen klick sollte es den 
' durchschnitt die höchste und die tifste der eingegebenen noten ausgeben
 
End Sub
 
Private Sub cmdEnde_Click()
End
End Sub
 
Private Sub cmdÜbernehmen_Click()
If txtEingabe.Text <> " " Then
    nummer = nummer + 1
    note(nummer) = txtEingabe.Text
    txtEingabe.Text = " "
    txtEingabe.SetFocus
End If
End Sub