Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim regex As New System.Text.RegularExpressions.Regex("^(\w*\d+(\w| |\t)*)$")

        Console.Write("Value: ")

        Dim input As String = Console.ReadLine()

        If regex.IsMatch(regex) Then

            Console.WriteLine("{0} is a valid String")

        Else

            Console.WriteLine("{0} is a NOT valid String.")

        End If

    End Sub

End Module

​