Imports System
Imports System.Text.RegularExpressions

Public Class Test
	Public Shared Sub Main() 
		Dim pattern As String = "^(?=.*[A-Za-z0-9])[A-Za-z0-9\\/@.,# _-]*$"
		Dim s As String = "10/12/2015"
		Console.WriteLine(Regex.IsMatch(s, pattern))
	End Sub
End Class