خواندن فایل تکست در وی بی دات نت با اعمال utf8

[saeidmobashery]

سپاس از پاسخ شما ؛ متاسفانه جواب نداد فکر می‌کنید ایراد از کجاست ؟

در VBA با کد زیر می‌خوانم مشکلی نیست

Dim theStream As Object

    Dim theContents As String

    Set theStream = CreateObject("ADODB.Stream")

    With theStream

        .Charset = "UTF-8"

        .Mode = 3 'adModeReadWrite

        .Type = 2 'adTypeText

        .Open

        .LoadFromFile Address

        theContents = .ReadText

        .Close

    End With

    ReadTXT = theContents

در VB6 با کد زیر همان فایل تکست را می‌خوانم مشکلی نیست

Function ReadTXT(Address As String)

    Dim strFile As String

    Dim intFile As Integer

    Dim strBody As String

    strFile = Address

    intFile = FreeFile

    Open strFile For Input As intFile

    strBody = Input(LOF(intFile), intFile)

    Close intFile

    ReadTXT = strBody

End Function

نمی‌دانم در VB.net چرا هر کاری می‌کنم نمی‌شود