Если среди трех чисел А, В, С имеется хотя бы одно четное, вычислить максимальное, инач - VB

Private Sub Command1_Click()
    Dim A As Integer, B As Integer, C As Integer
    A = Val(InputBox("A =", "Ввод данных", 5))
    B = Val(InputBox("B =", "Ввод данных", 8))
    C = Val(InputBox("C =", "Ввод данных", 11))
    If (A Mod 2 = 0) Or (B Mod 2 = 0) Or (C Mod 2 = 0) Then
        MsgBox "A = " & A & "  B = " & B & "  C = " & C & vbCrLf & _
               "Среди А В С четные есть!" & vbCrLf & _
               "Мaксимальное  " & Max(Max(A, B), C)
    Else
        MsgBox "A = " & A & "  B = " & B & "  C = " & C & vbCrLf & _
               "Среди А В С четных нет!" & vbCrLf & _
               "Минимальное  " & Min(Min(A, B), C)
    End If
End Sub
 
Function Min(ByVal A As Integer, ByVal B As Integer) As Integer
     If A < B Then Min = A Else Min = B
End Function
 
Function Max(ByVal A As Integer, ByVal B As Integer) As Integer
    If A > B Then Max = A Else Max = B
End Function