High & low scores from input box

[Marc Burmeister]

I have to make this program with High and Low bowling scores that will display them in a label after you enter scores in a message box. But I don't know any idea how

Here's what I got so far:

Private strTempScore As String, lnghigh As Long, lnglow As Long, intscore As Integer
Const strTitle As String = "Bowling scores"
Const strPrompt As String = "Enter a score (-1 to finish):"
Const intSentinel As Integer = -1  'Loop flag

Private Sub cmddone_Click()
End
End Sub

Private Sub cmdscores_Click()

strTempScore = InputBox(strPrompt, strTitle) 'Get Score

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

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

Private Sub cmdstats_Click()
lblhigh.Caption = lnghigh
lbllow.Caption = lnglow
End Sub

Private Sub Form_Load()


lblhigh.Caption = ""
lbllow.Caption = ""
End Sub