Imports System.Text.RegularExpressions Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows フォーム デザイナで生成されたコード " '自動生成部分省略 #End Region Private Sub btnCheck_Click _ (ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnCheck.Click '前後の空白除去 Me.TextBox1.Text = Trim(Me.TextBox1.Text) '全角カタカナチェック If Regex.IsMatch(Me.TextBox1.Text, "^[ァ-ー]+$") Then Me.