Win32 APIを用いてファイルを出力（VB.NET）

Question

###実現したいこと
VB.NETでCreateFileやWriteFileを用いて、ボタンを押すとファイルを出力させるプログラムを作成しています。

ファイルの出力はできるのですが、ファイルの中身が指定した値と違う文字列になっていました。（文字化け？）

文字化けを直す方法を教えてください。

###該当のソースコード

    Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String,
ByVal dwDesiredAccess As Integer,
ByVal dwShareMode As Integer,
ByVal lpSecurityAttributes As Integer,
ByVal dwCreationDisposition As Integer,
ByVal dwFlagsAndAttributes As Integer,
ByVal hTemplateFile As Integer) As Integer

    Declare Function WriteFile Lib "kernel32" (ByVal hFile As Integer,
 ByRef lpBuffer As String,
 ByVal nNumberOfBytesToWrite As Integer,
 ByRef lpNumberOfBytesWritten As Integer,
 ByVal lpOverlapped As Integer) As Integer

    Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer

    Const GENERIC_READ = &H80000000
    Const GENERIC_WRITE = &H40000000

    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click

        Dim cre As Integer = CreateFile("test.txt", GENERIC_READ Or GENERIC_WRITE, 0, 0, 4, 0, 0)

        'ファイルに表示させる文字列
        Dim word As String = "ABCDEFG"
        WriteFile(cre, word, 7, 0, 0)
        CloseHandle(cre)

    End Sub

###補足情報(言語/FW/ツール等のバージョンなど)
言語：VB.NET
OS：windows7
開発環境：visual studio 2010

Answer 1

１．WriteFile API の定義 ByRef lpBuffer As String, を ByVal lpBuffer As Byte(), に修正
２．WriteFile の呼び出しを WriteFile(cre, Encoding.Default().GetBytes(buff), 7, 0, 0) に修正

で動作します。