Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress If Not System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "\p{IsHiragana}") Then e.Handled = True End If End Sub