Imports System

Imports System.Text.RegularExpressions

Public Module Module1

    Public Sub Main()

        Dim staffingRegex as New Regex("^[\w]+[\w#$%&'*+-/=?^_`{|}~]*[\w]+@[\w]+[\w-.]+[\w]+$")

        Dim email As String = "d@vidsmyth.com"

        Console.WriteLine(staffingRegex.IsMatch(email))

    End Sub

End Module