non ho potuto testarla quindi controllala.
l'ho modificata in quanto avevi omesso l'ipotesi in cui i valori possano essere uguali.
il concetto cimunque rimane quello che la funzione dovrebbe darti un valore quindi per ricavare il dato in una casella di testo basta che fai forms!tuamaschera!tuocampo=tuafunzione.
codice:
Public Function num_max_I(max1 As Integer, max2 As Integer) As Integer
If max1 > max2 Then
MsgBox max1
num_max_I = max1
ElseIf max1 < max2 Then
MsgBox max2
num_max_I = max2
Else
MsgBox "valori uguali"
End If
End Function
per lanciarla dove ti serve scrivi
num_max_I DMax("[RICEV1]", "tblfees"), DMax("[RICEV2]", "tblfees")

per recuperare il valore in un campo scriverai
forms!tuamaschera!tuocampo=num_max_I DMax("[RICEV1]", "tblfees") ; DMax("[RICEV2]", "tblfees")