Variable string sizes in file i/o

[Jacob]

Code:

Private Sub Command1_Click()
Dim s As String
Dim s2 As String

    s = "hello"
    s2 = "world"
    
    Dim FileName As String
    Dim f As Long
        
    FileName = App.Path & "\test.test"
    
    f = FreeFile
    Open FileName For Binary As #f
        Put #f, , CLng(Len(s))
        Put #f, , s
        Put #f, , CLng(Len(s2))
        Put #f, , s2
    Close #f
    
End Sub

Code:

Private Sub Command2_Click()
Dim s As String
Dim s2 As String
Dim sLen As Long

Dim FileName As String
Dim f As Long
        
    FileName = App.Path & "\test.test"
    
    f = FreeFile
    Open FileName For Binary As #f
        Get #f, , sLen
        s = String$(sLen, " ")
        Get #f, , s
        
        Get #f, , sLen
        s2 = String$(sLen, " ")
        Get #f, , s2
        
        Debug.Print s, s2
    Close #f
End Sub