VBGamer

The other solution is to create a UDT with one member in it which is the string, this adds 2 bytes to the length of the string, and I asume they tell it what length the string is or something like that. 'In a module Type str String As String End Type 'Somewhere wlse Dim MyString As str 'Our string in a UDT 'Initialise it MyString.String = "Hello" 'Open a file - Binary mode Open "c:\test.txt" For Binary As #1 'Put our string in it Put #1, 1, MyString 'Close the file Close #1 'Clear the string (just to prove 'it is actually working) MyString.String = "" 'Open the file - Binary Open "c:\test.txt" For Binary As #1 'Get the string Get #1, 1, MyString 'Output the string MsgBox MyString.String 'Close the file Close #1 'Delete the file Kill "c:\test.txt"