Private Function Save()
Open App.Path & "\stuff.txt" For Append As #1
Write #1, "Username: " & Text1.Text, "Password: " & Text2.Text
Close #1
End Function