On IIS Server CreateObject("CacheObject.Factory") not working

When publish my application on the iis server below function not working..

Public Shared Sub Connection()
        Try
            factory = CreateObject("CacheObject.Factory")
            If Not factory.IsConnected() Then
                Dim connectstring As String
                connectstring = ConfigurationManager.AppSettings.Get("con")
                Dim success As Boolean
                success = factory.Connect(connectstring)
            End If

        Catch ex As Exception
            Dim Err As New CreateLogFiles()
            Err.ErrorLog(HttpContext.Current.Server.MapPath("Logs/ErrLog"), ex.Message & " Page : CacheDataDAL -> Connection")
        End Try
    End Sub

Public Shared Function CallRoutine(ByVal FuncName As String, ByVal Param As String) As String
       
        Dim rData As String = ""
        Try
            Call Connection()
            Dim obj As Object
            obj = factory.[New]("Routinename")
            rData = obj.Run("FuncationName", FuncName, Param)
        Catch ex As Exception
            Dim Err As New CreateLogFiles()
            Err.ErrorLog(HttpContext.Current.Server.MapPath("Logs/ErrLog"), ex.Message & " Page : CacheDataDAL -> Call Routine -> " & FuncName & " -> " & Param)
        End Try
        Return rData
    End Function

Can any one help me . as soon as  possible