vb输入3个数求出他们的最大值最小值平均值

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min, max As Integer
Dim q As Single

a = 11
b = 12
c = 14
min = a
max = a
If b > max Then
max = b
Else
If b < min Then min = b
End If

If c > max Then
max = c
Else
If c < min Then min = c
End If

q = (a + b + c) / 3

MsgBox "min " + CStr(min) + " max " + CStr(max) + " q " + CStr(q)

End Sub