Kod:
Dim sonuc As String
Dim kelime2 As String
Dim kelime1 As String
kelime1 = Chr(34) & "olcay" & Chr(34)
kelime2 = Chr(34) & "zumrut" & Chr(34)
sonuc = Replace(Metin0, kelime1, kelime2, 1, , vbTextCompare)
MsgBox sonuc
1 Adet Metin Kutusu --> Metin0 adında
1 Adet Buton --> Ne isim verirseniz artık
Butonun tıklanma olayına yukarıdaki kodu yazacaksınız. Metin kutusunun içine Merhaba "olcay" nasılsın yazıp butona tıklayın.