System.IO.Fileに関して

前提・実現したいこと

VB.NET初心者です。
WEbアプリケーションにてAmazon MWSのSubmitFeedを使用して価格の更新を行いたいと考えております。
fs = File.Open(String.Format("{0}/{1}.xml", sCurrentDir, XMLAMAZONPrice), FileMode.Open, FileAccess.Read)のところで
下記のエラーが発生し、原因がわかりません。

また、ローカル環境ではエラーは生じませんが、本番環境でこのようなエラーが生じております。
VisualStudio2010を使用しております。
ローカル環境
.NET Framework 4.5
本番環境
.NET Framework 4.0
どうか、お力添えよろしくお願いいたします。

発生している問題・エラーメッセージ

エラーメッセージ  BC30456: 'Open' は 'File' のメンバーではありません。

該当のソースコード

言語：VB
ソースコード

Imports System
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Web.UI
Imports System.Data
Imports System.Data.Common
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Transactions
Imports System.Xml
Imports System.Text
Imports Newtonsoft.Json
Imports RestSharp
Imports RestSharp.Authenticators
Imports System.Collections.Specialized
Imports System.Collections.Generic
Imports MarketplaceWebServiceProducts
Imports MarketplaceWebServiceProducts.Model
Imports MarketplaceWebServiceProducts.Mock
Imports MarketplaceWebService
Imports MarketplaceWebService.Model


 Function AmazonUpdatePrice(ByVal sCurrentDir As String) As Boolean
        Dim sFeedSubmissionId As String = String.Empty
        Dim fs As FileStream = Nothing
        Try
            Dim config As MarketplaceWebServiceConfig = New MarketplaceWebServiceConfig()
            config.ServiceURL = AMAZON_SERVICEURL

            config.SetUserAgentHeader(
                sApplicationName,
                sApplicationVer,
                "VB.NET",
                "<Parameter 1>", "<Parameter 2>")

            Dim service As MarketplaceWebService.MarketplaceWebService = New MarketplaceWebServiceClient(sAWSAccessKeyID, sSecretKey, config)

            Dim request As SubmitFeedRequest = New SubmitFeedRequest()
            request.Merchant = sMerchantID
            'request.MWSAuthToken = "<Your MWS Auth Token>"
            request.MarketplaceIdList = New IdList()
            request.MarketplaceIdList.Id = New List(Of String)(New String() {sMarketPlaceID})　　
            fs = File.Open(String.Format("{0}/{1}.xml", sCurrentDir, XMLAMAZONPrice), FileMode.Open, FileAccess.Read)
            request.FeedContent = fs

            request.ContentMD5 = MarketplaceWebServiceClient.CalculateContentMD5(request.FeedContent)
            request.FeedContent.Position = 0

            '価格フィード()　　　
            request.FeedType = AMAZON_PRICE

            'Submit Feed
            If InvokeSubmitFeed(service, request, sFeedSubmissionId) Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Throw New Exception("Amazon：" & ex.Message, ex)
            Return False
        Finally
            If Not IsNothing(fs) Then
                fs.Close()
            End If
        End Try
    End Function