Public Function ReadBootSector(sDrive As String, sDestFile As String) As Boolean
    On Error GoTo ErrH
 
    Dim ret() As Byte
    Dim FF As Byte: FF = FreeFile
 
    If Not DirectReadDriveNT(sDrive, 0, 1, ret) Then Exit Function
 
    Open sDestFile For Binary As #FF
        Put #FF, , ret
    Close #FF
 
    ReadBootSector = True
 
ErrH:
End Function
 
Public Function WriteBootSector(sDrive As String, sBootImage As String) As _
  Boolean
    On Error GoTo ErrH
 
    Dim FF As Byte: FF = FreeFile
    Dim sRet As String
    Dim ret() As Byte
 
    Open sBootImage For Binary As #FF
        ReDim ret(FileLen(sBootImage )) As Byte
        Get #FF, , ret
    Close #FF
 
    sRet = StrConv(ret, vbUnicode)
 
    WriteBootSector = DirectWriteDriveNT(sDrive, 0, 0, ret)
 
ErrH:
End Function