بحث واستبدال في ملف نصي

Private Sub Command1_Click()
On Error Resume Next
 Dim sText As String
 Open "File Path" For Binary As #1
	sText = Space(LOF(1))
	Get #1, , sText
 Close #1
 sText = Replace(sText, "Mohamed", "Khaled", 1, -1)
 Kill "File Path"
 Open "File Path" For Binary As #1
	Put #1, , sText
 Close #1
 MsgBox "All Done"
End Sub

استبدل File Path في الثلاث مواضع بمسار الملف النصي ..

كذلك استبدل الأسماء بالعربي في دالة Replace لأن بتحصل مشاكل في تنسيق الكود عندما أكتب كلام بالعربي