Binary Files

[lintz]

How can I create a binary file to look like the attached if opened in Notepad (combination of text and characters)?

I've used the below code but when I open the file in Notepad it displays the word 'TEST'.

Any suggestions?

Dim b() As Byte
Open App.Path & "\test.abc" For Binary As #1
s = "TEST"
 
    ReDim b(5) As Byte
    
    For i = 1 To Len(s)
    'Now get details
    
    b(i - 1) = Asc(Mid$(s, i, 1))
    Next
        
    
    Put #1, , b()
    Close #1