Detect The Current Trust Level For Application

I found this code:

AspNetHostingPermissionLevel GetCurrentTrustLevel() {
foreach (AspNetHostingPermissionLevel trustLevel in
new AspNetHostingPermissionLevel [] {
AspNetHostingPermissionLevel.Unrestricted,
AspNetHostingPermissionLevel.High,
AspNetHostingPermissionLevel.Medium,
AspNetHostingPermissionLevel.Low,
AspNetHostingPermissionLevel.Minimal
} ) {
try {
new AspNetHostingPermission(trustLevel).Demand();
}
catch (System.Security.SecurityException ) {
continue;
}
return trustLevel;
}
return AspNetHostingPermissionLevel.None;
}

Get current ASP.NET Trust Level programmatically):

but for C#, and would like to have it for VB.NET. Any chance of someone expert in both VB.NET and C# that can translate this to VB code?

I tried myself and got the following VB.NET code but it generates an error inside my VWD:

Private Function GetCurrentTrustLevel() As AspNetHostingPermissionLevel
For Each trustLevel As AspNetHostingPermissionLevel In New _
AspNetHostingPermissionLevel() {AspNetHostingPermissionLevel.Unrestricted, _
AspNetHostingPermissionLevel.High, AspNetHostingPermissionLevel.Medium, _
AspNetHostingPermissionLevel.Low, AspNetHostingPermissionLevel.Minimal}
Try
New AspNetHostingPermission(trustLevel).Demand()
Catch generatedExceptionName As System.Security.SecurityException
Continue Try
End Try
Return trustLevel
Next
Return AspNetHostingPermissionLevel.None
End Function

These parts seems to be wrong:

New AspNetHostingPermission(trustLevel).Demand()
and

Continue Try

Obviously, need to be handled by someone fluent in both C# and VB.NET and can spot the errors in VB.NET