Detect Casted Parameters Submitted ByRef?

Is it possible to possible to make the following code to produce an error at compile time? (please see the line marked by the comment):

Option Strict On
Option Explicit On
Module Module1

Private Sub Test(ByRef i As Integer)

i = 999
End Sub

Sub Main()

Dim o As Object = 5 expecting an error message like in C# "A ref or out argument must be an assignable variable"Test(CInt(o))System.Console.Out.WriteLine("Testvalue: {0}", o)End Sub