InputBoxに１が入力されたら終了して
Formに最大値と合計を表示するプログラムを作ってみました
でも、ここで問題が
たとえば -6, -3, 1　と入力して終了したとき
最大値が１と表示され、合計値が+1されて-8となってしまうのです
1が入力された時点でループを抜ける方法はないでしょうか？
最大値-3 合計-9と表示させるようにしたいのです
お願いします

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Do Until a = 1
Form1.Cls
a = Val(InputBox("１で終了", "タイトル"))
If a > b Then
b = a
End If
c = c + a
Loop
Form1.Print "最大"; b
Form1.Print "合計"; c
End Sub