Hỏi tại sao đoạn code VB không hoạt động được. (2 người xem)

[duonggiapk]

giúp mình xem thử đoạn code này sai chỗ nào được không vây. Mình không active nó đc. Cảm ơn các bạn nhiều

Private Sub cmdNhap_Click()
Dim MyLocalfolder, Myfilename, FileNo
MyLocalfolder = App.Path
If Right(MyLocalfolder, 1) <> "\" Then
MyLocalfolder = MyLocalfolder & "\"
End If
FileNo = FreeFile
Myfilename = MyLocalfolder & "bantoi.txt"
If Dir("bantoi.txt") <> "" Then
Open Myfilename For Append As #FileNo
Else
Open Myfilename For Output As #FileNo
End If
Print #FileNo, txtTen & ";" & txtDC & ";" & txtTuoi
Close #FileNo
End Sub

Private Sub cmdXuat_Click()
End
End Sub