VBAで正規表現や関数を使った入力チェックを行い、Accessに新規レコードを追加、保存するには：Access VBAで学ぶ初心者のためのデータベース／SQL超入門（4）（4/5 ページ）

If IsNumeric(年齢テキストボックス.Value) = False Then
    MsgBox ("数値を入力してください。")
    Exit Sub
Else
    myRecordset("年齢") = Me.年齢テキストボックス
End If

If 条件式　Then
    処理1
Else
    処理2
End If

〜コード略〜
Dim myRegEx As RegExp　≪1≫
Dim regCheck As Boolean　≪2≫
Set myRegEx = New RegExp　≪3≫
〜コード略〜
myRegEx.Pattern = "\d{2,4}-\d{2,4}-\d{4}"　≪4≫
regCheck = myRegEx.Test(電話テキストボックス.Value)　≪5≫
If regCheck = False Then
    MsgBox "電話番号が不正です。"　≪6≫
    Exit Sub
Else
    myRecordset("電話番号") = 電話テキストボックス　≪7≫
End If

myRegEx.Pattern = " ^[0-9]{3}[\-]?[0-9]{4}$"

Option Compare Database
Option Explicit
Private Sub 登録ボタン_Click()
    '正規表現を使用可能にするには［ツール］−[参照設定]
    'からMicrosoft VBScript Regular Expressions 5.5にチェックを入れる。
    '正規表現用変数
    Dim myRegEx As RegExp
    Dim regCheck As Boolean
    Set myRegEx = New RegExp
    Dim myRecordset As DAO.Recordset
    Set myRecordset = CurrentDb.OpenRecordset("select * from 顧客管理テーブル")
    myRecordset.AddNew
    myRecordset("氏名") = 氏名テキストボックス
    myRecordset("性別") = 性別コンボボックス
    ‘IsNumeric関数で「年齢」が数値かどうかを判別
    If IsNumeric(年齢テキストボックス.Value) = False Then
        MsgBox ("数値を入力してください。")
        Exit Sub
    Else
        myRecordset("年齢") = 年齢テキストボックス
    End If
    ‘郵便番号正規表現チェック
    myRegEx.Pattern = "^[0-9]{3}[\-]?[0-9]{4}$"
    regCheck = myRegEx.Test(郵便番号テキストボックス.Value)
    If regCheck = False Then
        MsgBox "郵便番号が不正です。"
        Exit Sub
    Else
        myRecordset("郵便番号") = 郵便番号テキストボックス
    End If
    myRecordset("住所") = 住所テキストボックス
    '電話番号正規表現チェック
    myRegEx.Pattern = "\d{2,4}-\d{2,4}-\d{4}"
    regCheck = myRegEx.Test(電話テキストボックス.Value)
    If regCheck = False Then
        MsgBox "電話番号が不正です。"
        Exit Sub
    Else
        myRecordset("電話番号") = 電話テキストボックス
    End If
    myRecordset.Update
    Me.Recalc
    myRecordset.Close
    Set myRecordset = Nothing
End Sub