C# と VB.NET の質問掲示板

お世話になります
環境は、WinXP、Access2000、Word2000です
Word文書の特定の文字をフォームのテキストボックスの値に置換えたいです
色々サイトを見て、参考にしているのですが置き換わらないので四苦八苦しています

    Dim wApp As Word.Application
    Dim wDoc As Word.Document
    Dim wSha As Word.Shape
    
    Set wApp = CreateObject("Word.Application")
    Set wDoc = wApp.Documents.Add("Word文書.doc")
    
    wSha.TextFrame.TextRange.Find.Execute "あ", , , , , , , , , "置き換え"
    
    wApp.Visible = True
    Set wApp = Nothing

Word文書の方は
NENGAPPI
あ
と現在2行ですが、今は「あ」を「置き換え」に変えたいと思っています
出来ればフォームのtxt_年月をNENGAPPIと置き換える様にしたいと思っています

Accessの方は参照設定でMicrosoft Word 9.0 Object Library にチェックを入れてあります
よろしくお願いします