Çalışma Kitabı Kontrollü

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar ufak bir program için şöyle bir kod kullanıyorum.

Const strTxtFile As String = "D:\Xp.txt"
----------------------------------------
Sub auto_open()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayıtlı Kullanıcı Değilsiniz...", vbCritical, "Kullanıcının Dikkatine !"
Application.Quit
ThisWorkbook.Close SaveChanges:=False
End If

Açılımı : Eğer D'de "Xp" adında bir "Metin Belgesi" varsa Çalışma Kitabı açılsın, yoksa kapansın. Benim yapmak istediğim, "Xp" adındaki "Metin Belgesi"'nin içine, örnek olarak, "1234" gibi krakterler yazmak istesem, en üsteki kodta ne gibi bir değişiklik yapmam lazım?. Yardımlarınız için şimdiden teşekkür ediyorum, saygılar-sevgiler.