VB.NETでの拡張メソッドの書き方のメモ

System.Runtime.CompilerServices をインポートします。
Module で作成します。

また後で追記します。

Extensions.vb

Imports System.Runtime.CompilerServices

Public Module HogeExtensions

    <Extension>
    Public Function IsNullOrEmpty(Byval value As String) As Boolean

        Return String.IsNullOrEmpty(value)

    End Function

    '' VB.Net を使用すると メール送信にSmtpClientを使用することが多いと思います。
    '' そのため、メールアドレスのチェックはMailAddressクラスで
    '' チェックすることをお勧めします。
    <Extension>
    Public Function IsMailAddress(Byval value As String) As Boolean

        If value.IsNullOrEmpty Then
            Return False
        Else
            Try
                Dim MailAddress As New System.Net.Mail.MailAddress(value)
                Return True
            Catch ex As FormatException
                Return False
            End Try
        End If
    End Function

End Module

使用方法

Main.vb

Sub Main

    If "hoge@example.com".IsMailAddress Then
        ' Trueの処理
    Else
        ' Falseの処理
    True