incorporate the minor changes in your cmdscores_Click sub i'd made below:
see if this works...

[code]
Private Sub cmdscores_Click()
strTempScore = InputBox(strPrompt, strTitle) 'Get Score

If strTempScore = "" Then
intscore = intSentinel
Else
intscore = strTempScore
End If

'For the first score, it is both the high and the low...
[B]lnghigh = intscore [B]
lnglow = intscore

Do While intscore <> intSentinel
strTempScore = InputBox(strPrompt, strTitle)
If strTempScore = "" Then
intscore = intSentinel
Else
intscore = strTempScore

' Check if the score is higher than the highest score so far
lnghigh = Iif(intscore > lnghigh,intscore,lnghigh)

' Check if the score is lower that the lowest score so far
lnglow = Iif(intscore < lnglow,intscore,lnglow) End If
Loop
End Sub