Private Sub CommandButton1_Click()


'============================================
'　テキストが英語かどうかチェックする
'============================================


'左から1文字目をチェック。 A-zだったら、英語。

If Left(Trim(TextBox1), 1) Like "[A-z]" = True Then

MsgBox TextBox1.Text & Chr(13) & " ---> 英語です。"

Else

MsgBox TextBox1.Text & Chr(13) & " ---> 英語ではありません。"

End If



End Sub