[Débutant] System.FormatException: Le format de la chaîne d'entrée est incorrect

bonsoir ,
J'ai un probleme avec mon applications c# .NET que je cree ...
Ce probleme survient qd j'essaye de lancer l'appli.. je sais que c'est peut etre un problème de conversion de tye mais je sais pas comment le résourdre
le code en c# marche pourtant trés bien mais quand je l'écris en vb :cry: ca marche pas bon voila le morceau de code en c#

svp c quelq'un peut m'aider merci d'avance ;)
le problème est au niveau de la ligne 17

Code:

Dim sessionKey As Object = "Repository_" + repositoryKey + "_" + size

du code en vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
using System.Web;
using Hik.JTable.Repositories;
using Hik.JTable.Repositories.Memory;
 
namespace Hik.JTable.Sessions
{
    public static class RepositorySesssion
    {
        public static IRepositoryContainer GetRepository(RepositorySize size = RepositorySize.Medium, string repositoryKey = "common")
        {
            var sessionKey = "Repository_" + repositoryKey + "_" + size;
 
            if (HttpContext.Current.Session[sessionKey] == null)
            {
                HttpContext.Current.Session[sessionKey] = CreateRepository(size);
            }
 
            return HttpContext.Current.Session[sessionKey] as IRepositoryContainer;
        }

en vb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Imports System
Imports System.Object
Imports System.Web
Imports System.Web.HttpContext
Imports jTableSampleDatabaseLayer.Hik.JTable.Repositories
Imports jTableSampleDatabaseLayer.Hik.JTable.Repositories.Memory
 
Namespace Hik.JTable.Sessions
 
    Public Class RepositorySesssion
 
        Public Function GetRepository(Optional ByVal size As RepositorySize = RepositorySize.Medium, Optional ByVal repositoryKey As String = "common") As IRepositoryContainer
 
 
 
            Dim sessionKey As Object = "Repository_" + repositoryKey + "_" + size
 
            If (System.Web.HttpContext.Current.Session(sessionKey)) Then
 
                System.Web.HttpContext.Current.Session(sessionKey) = CreateRepository(size)
            End If
 
            Return CType(System.Web.HttpContext.Current.Session(sessionKey), IRepositoryContainer)
 
 
        End Function
 
 
    End Class
End Namespace

et l'erreur que je reçoit dans mon browser