メールアドレスの入力チェックをする

　正規表現を使用してメールアドレスの入力チェックをする事ができます。
　正規表現を利用するには、VBScript の RegExp オブジェクトを使用します。
　MSDNへのリンクです。

Option Compare Database
Option Explicit

'「参照設定」で [Microsoft VBScript Regular Expressions X.X] に参照します。
Private Sub コマンド0_Click()

    Dim objRegExp          As RegExp

    'objRegExp = CreateObject ("VBScript.RegExp")

    ' インスタンス生成
    Set objRegExp = New RegExp

    With objRegExp
        .Pattern = "^\S+@\S+\.\S+$"     'パターン(他にも書き方はあります)
        .Global = True                  '文字列全体を検索
        .IgnoreCase = True              '大文字/小文字を区別
    End With

    'メールアドレスのチェック（アカウント名@ドメイン名）
    Debug.Print objRegExp.Test("info@sanryu.net")   '結果⇒True
    
    Debug.Print objRegExp.Test("infosanryu.net")    '結果⇒False

    Debug.Print objRegExp.Test("hoge@hoge.")        '結果⇒False

    ' 後処理
    Set objRegExp = Nothing

End Sub