what this program is supposed to do is find the average of 2 grades ... then display the average n depending on what the average is ... it will give u a letter value ... (please try this on ur comp n see if it works for u or not)
u need 4 textboxes, 1 command button

Private Sub Command1_Click()
Dim a1 As Integer, a2 As Integer, b As Integer, c As String
a1 = Text1.Text
a2 = Text2.Text
b = (a1 + a2) / 2
Text3.Text = b
Call test(b)
c = test(b)
Text4.Text = c
End Sub

Public Function test(b As Integer)
Dim wha As String
Select Case b
Case Is >= 97
wha = "A+"
Case Is >= 55
what = "C"
Case Is >= 0
wha = "F"
test = wha
End Select
End Function

i don't know y it won't give me the value letters for anything above 54 ...