Из трех данных чисел выбрать наименьшее и наибольшее. (Ветвление) перевести из Pascal - VB

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("A = ", , 5): b = InputBox("B = ", , 7): c = InputBox("C = ", , 9)
MsgBox "Min = " & min(min(a, b), c) & vbCrLf & _
       "Max = " & max(max(a, b), c)
End Sub
 
Private Function min(a As Integer, b As Integer) As Integer
    If a < b Then min = a Else min = b
End Function
 
Private Function max(a As Integer, b As Integer) As Integer
    If a > b Then max = a Else max = b
End Function