Create Student Records Using Active-X DLL in Visual Basic

To Create a Student Record by using Active-X DLL in VB.
Source code Programming in Visual Basic
Part – 1

Public Function total (a As Integer, b As Integer, c As Integer)
total = (a + b + c)
End Function

Public Function average(a As Integer, b As Integer, c As Integer)
average = (a + b + c) / 100
End Function
Public Function grade(a As Integer, b As Integer, c As Integer)
If (average(a, b, c) >= 80) Then
grade = "A"
ElseIf (average(a, b, c) < grade = "C"> 70) Then
grade = "B"

ElseIf (average(a, b, c) < grade = "E" 

Part-2

Dim a As New Class1
Private Sub Command1_Click()
Text6.Text = a.total(Val(Text3.Text), Val(Text4.Text), Val(Text5.Text))
End Sub
Private Sub Command2_Click()
Text7.Text = a.average(Val(Text3.Text), Val(Text4.Text), Val(Text5.Text))
End Sub
Private Sub Command3_Click()
Text8.Text = a.grade(Val(Text3.Text), Val(Text4.Text), Val(Text5.Text))
End Sub

Student Record by using Active-X DLL in VB.