Private Function GetMax(ParamArray Values() As Variant) As Long
  Dim i As Long
  Dim maxValue As Long
  Max = GetMax(Val(E1null.Text), Val(E160.Text), Val(E1120.Text), Val( _
    E1180.Text), Val(E1240.Text), Val(E1300.Text))
  For i = LBound(Values) To UBound(Values)
    If Values(i) > maxValue Then maxValue = Values(i)
  Next i
 
  GetMax = maxValue
End Function