Type hexData
    str1 As String
    str2 As String
    str3 As String
    str4 As String
    str5 As String
End Type

Private podaci as hexData

ImeFajla=App.Path & "/data.hex"
Open ImeFajla For Binary Lock Read Write As #BrFajla
	Put #BrFajla, , podaci
Close #BrFajla