sub main()

    dim s as new adodb.stream

    s.charSet = "utf-8"

    s.open

    s.loadFromFile("dosya yolu ve adı")

    dim txt as string

    txt = s.readText

    s.close

'aktarma işlemi

end sub