Imports System
Imports System.Text.RegularExpressions
Public Class StringContainsOnlyEnglish
Public Shared Function IsOnlyEnglishLetters(ByVal s As String) As Boolean
Dim pattern As String = "^[a-zA-Z]+$"
Return Regex.IsMatch(s, pattern)
End Function
Public Shared Sub Main()
Dim s1 As String = "VBNET"
Console.WriteLine(IsOnlyEnglishLetters(s1))
Dim s2 As String = "VBNETネット"
Console.WriteLine(IsOnlyEnglishLetters(s2))
End Sub
End Class
' run:
'
' True
' False
'