Vize_Final Notu Hesaplama Programı

Sub Not_Hesaplama()
    Dim vize1, vize2, final, vizeortalamasi, finalnotu, notortalamasi As Double
    Dim ogrencisirasi, toplamogrenci As Integer
        Dim islemedevam As Boolean
        ogrencisirasi = 0
        islemedevam = True
    
        toplamogrenci = InputBox("Kaç öğrenci için not hesaplamak istiyorsunuz ?")
       
            Do While toplamogrenci > 0
                ogrencisirasi = ogrencisirasi + 1
                toplamogrenci = toplamogrenci - 1
   
                vize1 = CInt(InputBox(ogrencisirasi & ".öğrenci için 1. vize notunu giriniz")) 'Cint string dönüştürür integer
                vize2 = CInt(InputBox(ogrencisirasi & ".öğrenci için 2. vize notunu giriniz"))
                final = CInt(InputBox(ogrencisirasi & ".öğrenci için final notunu giriniz"))
               
                        vizeortalamasi = ((vize1 + vize2) / 2) * 0.4
                        finalnotu = final * 0.6
                        notortalamasi = vizeortalamasi + finalnotu
                   
                        MsgBox ogrencisirasi & ". öğrencinin dönem sonu notu " & notortalamasi
   
               
                If islemedevam = toplamogrenci < 0 Then
                    islemedevam = False
                End If
                Dim yaziNotu, harfnotu As String
               
                Select Case notortalamasi
                    Case Is < 50: yaziNotu = "kaldı"
                    Case Is >= 50: yaziNotu = "geçti"
                    Case Else: yaziNotu = "hadi bu da geçti"
                End Select
                    Select Case notortalamasi
                        Case 0 To 30
                        harfnotu = "E"
                        Case 30 To 50
                        harfnotu = "D"
                        Case 50 To 60
                        harfnotu = "C"
                        Case 60 To 80
                        harfnotu = "B"
                        Case 80 To 100
                        harfnotu = "A"
                    End Select
       
                MsgBox ogrencisirasi & ".ögrenci " & harfnotu & " ile " & yaziNotu
            Loop
  
    End Sub