Instr関数は使っていませんが、こんなのはどうでしょうPrivate Sub Command1_Click() If Text1.Text Like "*[a-z,A-Z,a-z,A-Z]*" Then MsgBox "アルファベットが入っています" End If End Sub