VB_file write

Private Sub Form_Load()
    Dim A1      As String
    Dim A2      As String
    Dim A3      As String
    Dim A4      As String
    Dim FileNumber  As Integer
    Dim TheFileName As String
    
    FileNumber = FreeFile
    TheFileName = "TEST1.txt"
    A1 = "TEST"
    A2 = "00000000"
    A3 = "김춘식"
    A4 = "20060203"
    
    
    Open TheFileName For Output As #FileNumber   ' 기존파일열때 내용이 삭제됨

   'Open TheFileName For Append As #FileNumber '기존파일 끝에 내용을 쓸때
    
    Print #FileNumber, A1 + A2 + A3 + A4
    Print #FileNumber, "Testing, 1, 2, 3"
    Print #FileNumber, FileNumber
    Close #FileNumber
End Sub