Ich habe dies jetzt etwas anders formuliert:

Private Sub cmdAnzeigen_Click()

    Dim intAuswahlFuttermenge As Integer
    Dim strFuttermenge As String
        
    intAuswahlFuttermenge = Me.txtFuttermenge
      
    Call TiereFuttermenge_auslesen(strFuttermenge)
    
End Sub

Sub TiereFuttermenge_auslesen(strFuttermenge As String)
    
    strFuttermenge(Me.cmdAnzeigen) = "SELECT * FROM tblTier WHERE Futtermenge<=" & Me.txtFuttermenge
    
End Sub

Ich erhalte bei Me.txtFuttermenge die Fehlermeldung

Fehler bei Kompilieren:
Erwartet ein Datenfeld