Powerpoit : problème de sci

Bonjour,

J'ai trouver ce code dans un magazine (ce code est censé enregistrer dans un fichier la textbox1 et la textbox2 au clique sur commandButton1 ) mais je n'arrive pas le mettre en application (car je suis nul )

Private Sub CommandButton1_Click()
Dim fso, f
Set fso = New Scripting.FileSystemObject
Set f = fso.OpenTextFile (CurDir&"/data.txt",_
ForAppending , True
f.WriteLine TextBox1.Text&vbTab&Textbox2.Text
f.Close
MsgBox ("Données enregistrées")
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
End Sub

(en rouge les liges ou Microsoft Visual Basic signal une éreur)

Merci d'avance à celui ou celle qui pourra m'aidé

désoler je me sui trompé en écrivant le titre

Bonjour,

la varaible "CurDir" est elle bien déclarée ?

désoler mais je ne compren pas grand chose au language visual basic.
J'ai d'abort créé deux tex box puis j'ais créé un bouton sur le quelle j'ai double cliquer et j' ai taper le texe que j'ai trouver dans un magazine et c'est la ou visual basique ma signaler une éreur
P.S: j'ai copier le text en entier