How to receive hex data from external device using rs232 in vb6

See more:

VB6

Hello,
I don't know what data the external device contains but the data is in intel hex format
I have to write a code to download it connecting rs232 using mscomm in vb6
pls help me
Thank You

What I have tried:

Private Sub open_Click()
MSComm1.comport=4
MSComm1.settings="115200,n,8,1"
MSComm1.PortOpen = True

End Sub

Private Sub download_Click()

dim data as variant
With CommonDialog1
.InitDir = App.Path
.FileName = ""
.Filter = "Hex File (*.hex)|*.hex"
.ShowSave

Do
ff = FreeFile
data=MSComm1.Input
Open .FileName For Output As #ff
Print #ff, data
Close #ff

Loop Until MSComm1.InBufferCount=0
End With


End Sub