User-defined type not defined

[chouna]

Public Function grade(mark As Variant) As Sting
Select Case mark
Case Is >= 80
grade = "A"
Case Is >= 70
grade = "B"
Case Is >= 60
grade = "C"
Case Is >= 50
grade = "D"
Case Is >= 40
grade = "E"
Case Else
grage = "F"
End Select

End Function

Private Sub Compute_Click()
grading.Caption = grade(mark)
End Sub

Private Sub End_Click()
End
End Sub

 

[PHV]

Replace this:
As Sting
with this:
As String

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Fenrirshowl]

In case you've not noticed, there's a minor typo in your grade F line too.