Fungsi IF untuk Menghitung Grade

Pada VB 6, untuk menghitung grade bisa menggunkan fungsi IF, seperti contoh gambar form di bawah ini:












Proses kerjanya adalah sebagai berikut: Saat form dijalankan maka tombol 'hitung' akan tampak, setelah input nilai, dilanjutkan klik 'hitung' maka yang muncul adalah tombol 'clear'

Untuk kodenya adalah sebagai berikut:

Private Sub Command1_Click()
Text3 = (Val(Text1) + Val(Text2)) / 2
If Text3 >= 85 Then
Text4 = "A"
ElseIf Text3 >= 75 Then
Text4 = "B"
ElseIf Text3 >= 60 Then
Text4 = "C"
ElseIf Text3 > 50 Then
Text4 = "D"
Else
Text4 = "E"
End If
Command1.Visible = False
Command2.Visible = True
End Sub

Private Sub Command2_Click()
Command1.Visible = True
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Command2.Visible = False
End Sub

Private Sub Form_Load()
Command1.Visible = True
Command2.Visible = False
End Sub