There must be a use for Item As Outlook.MailItem. It is the mail that is being received. Pass it along.

Public Sub CHRobDL(Item As Outlook.MailItem)
Call HyperlinkAddress_with_parameter (Item)
End Sub


Sub HyperlinkAddress_with_parameter (msg as mailitem)
'Item As Outlook.MailItem

'Dim msg As Object
Dim oDoc As Object
Dim h As Object
'Dim OldLocation As String
'Dim NewLocation As String

'Change Username below for each PC.
OldLocation = "C:\users\majorsc\downloads"
NewLocation = "\\INEPRWF02\IE_Inventory\Databases\DailyInbound\DailyInbound.csv"


'Set msg = ActiveInspector.CurrentItem

' rest is the same
Unless there is some reason to go through Public Sub CHRobDL you can just set HyperlinkAddress_with_parameter to work directly with the rule.