Access VBA テキストの文字列に特定の一文字が入っていたら、違う文言で形でフォームに反映させたい

Question

よろしくお願いいたします。

データベースに格納されている文字列を、初めにMeフォームのテキストに取得します。
そのMeフォームのテキストの値を、フォーム1テキストに、ボタンで取り込むシステムを作りました。
フォーム1テキストには、プルダウンでBOAT,AIRなどの値が設定されています。

Meフォーム→フォーム1に値を反映させる際に、変換マッピング？のような事がしたいと考えているのですが。。。。
つまり、Meのテキストにある文字列に特定の一文字が入っていたら、違う形でフォーム1に反映させたいのです。
例）船舶便→BOAT 航空便→AIR

下記コードにあるように、 mapping()というプロシージャを作って呼んでみるなど思考錯誤したのですが、
初心者の為文法など誤りが多い事により、コンパイルエラーが出てうまく期待通りの事がかけません。

有職者の皆様、
どのように記述すれば良いかお知恵を貸していただけないでしょうか。

//something code

	
Forms![フォーム1]![テキスト1] = Me![テキスト2]  ' Call mapping
 //ここにCallを入れると、当然コンパイルエラーとなる

//something code
----------------------------------	
Private Sub mapping()
 	
If Me![テキスト2].Value Like "*船*" Then
    Forms![フォーム1]![テキスト1] = "BOAT"
   
   If Me![テキスト2].Value Like "*空*" Then
    Forms![フォーム1]![テキスト1] = "AIR"

Answer 1

Replace(元の文字, 検索したい文字, 置き換えたい文字)

例で挙げてるやつだと、

Dim src As String
src = [元の文字列]
src = Replace(src, "船舶便", "BOAT")
src = Replace(src, "航空便", "AIR")

とやれば変数srcに変換済み文字列が入ってる。

Comments

[nekomura]

tkturbo様
いつも本当にありがとうございます。
ご教示いただきました内容で、思っていた動作ができるようになりました。