Imports System.Text.RegularExpressions
 
Module Module1
 
    'http://learn.open.ac.uk/mod/oublog/viewpost.php?post=23031
    'www.ForkandBeard.co.uk
 
    Sub Main()
        Dim strUserNumbers As String()
        strUserNumbers = New String() { _

Imports System.Text.RegularExpressions
 
Module Module1
 
    Sub Main()
        Dim strUserNumbers As String()
        strUserNumbers = New String() { _
              "H0W_BOvThemy84kies" _
              , "01543 MWC66" _
              , "8" _