Option Explicit
Private Declare Function DlPortReadPortUchar Lib "dlportio.dll" _
(ByVal Port As Long) As Byte
Private Sub Command1_Click()
Dim i As Long, Filenum As Long, biobyte As Byte
Filenum = FreeFile
Open App.Path & "\BiosData.txt" For Binary As #Filenum
For i = 1048480 To 1048495
biobyte = DlPortReadPortUchar(i)
Put #Filenum, , Hex$(CInt(biobyte)) & " "
Next i
Close #Filenum
End Sub