https://github.com/dotnet/roslyn/issues/21024

Program.vb

Option Strict On

Imports System
Imports Microsoft.CodeAnalysis.CSharp.Scripting

Module Program
    Sub Main()
        Dim hashCode As Byte = 42
        Dim data As Byte() = { 1, 2, 3 }

        hashCode = CSharp(Of Byte, Byte(), Integer, Byte)(
            "(hashCode, data, i) => unchecked((byte)((hashCode ^ data[i]) * 0x100000001b3))",
            hashCode, data, 0)

        Console.WriteLine(hashCode)
    End Sub

    Function CSharp(Of T1, T2, T3, TResult)(cSharpLambda As String, param1 As T1, param2 As T2, param3 As T3) As TResult
        Dim execute = "TResult Execute<T1, T2, T3, TResult>(System.Func<T1, T2, T3, TResult> func, T1 param1, T2 param2, T3 param3) => func(param1, param2, param3);"

        Dim script = $"{execute} Execute({cSharpLambda}, Param1, Param2, Param3)"

        Dim globals = New Globals(Of T1, T2, T3) With { .Param1 = param1, .Param2 = param2, .Param3 = param3 }

        Return CSharpScript.EvaluateAsync(Of TResult)(script, globals:=globals).GetAwaiter().GetResult()
    End Function
End Module

Public Class Globals(Of T1, T2, T3)
    Public Property Param1 As T1
    Public Property Param2 As T2
    Public Property Param3 As T3
End Class