Option Explicit

Private Sub cmdWriteValues_Click()
Dim file_name As String
Dim file_length As Long
Dim fnum As Integer
Dim bytes() As Byte
Dim txt As String
Dim i As Integer
Dim values As Variant
Dim num_values As Integer

    ' Build the values array.
    values = Split(txtValues.Text, vbCrLf)
    For i = 0 To UBound(values)
        If Len(Trim$(values(i))) > 0 Then
            num_values = num_values + 1
            ReDim Preserve bytes(1 To num_values)
            bytes(num_values) = values(i)
        End If
    Next i

    ' Delete any existing file.
    file_name = filePath
    On Error Resume Next
    Kill file_name
    On Error GoTo 0

    ' Save the file.
    fnum = FreeFile
    Open file_name For Binary As #fnum
    Put #fnum, 1, bytes
    Close fnum

    ' Clear the results.
    txtValues.Text = ""
End Sub


Private Sub cmdReadValues_Click()
Dim file_name As String
Dim file_length As Long
Dim fnum As Integer
Dim bytes() As Byte
Dim txt As String
Dim i As Integer

    file_name = filePath
    file_length = FileLen(file_name)

    fnum = FreeFile
    ReDim bytes(1 To file_length)

    Open file_name For Binary As #fnum
    Get #fnum, 1, bytes
    Close fnum

    ' Display the results.
    For i = 1 To file_length
        txt = txt & Format$(bytes(i)) & vbCrLf
    Next i
    txtValues.Text = txt
End Sub
Function filePath()
    filePath = App.Path & "/data.hex"
End Function

Private Sub Command1_Click()
    End
End Sub