クエリから、スペースは除きＶＢＡで抽出したいのですが？

住所テーブルの番地フィールドに（12-5）・（12-　5）・（1　2-5）のようなデータを【12-5】で抽出したいのですが？可能でしょうか。

住所テーブルを選択クエリで作成しＴＲＩＭ関数で前後にあるスペースは削除できましたが中にあるスペースは削除できません。

よろしくお願いします。

　Private Sub コマンド0_Click()

　　Dim DB As DAO.Database

　　Dim RS As DAO.Recordset

　　Dim i As Integer

     Set DB = CurrentDb

     Set RS = DB.OpenRecordset("住所Ｑ")

     FILE = Me.[番地]     

     FILE = "[番地]='" & FILE & "'"

     RS.Filter = FILE

     Set RS = RS.OpenRecordset()

     If RS.RecordCount = 0 Then

                MsgBox "該当するレコードは見つかりません"

             Else

                Do Until RS.EOF

                    MsgBox RS![町名(漢字)]                

                   RS.MoveNext

                Loop

             End If    

     RS.Close: Set RS = Nothing

End Sub