テキストの中にアルファベットが含まれているかどうかを
調べるにはどうしたらいいのでしょうか？
コマンドボタンを押したときにメッセージがでて警告を促す形です。
Instr関数を使ってどのようになるのでしょうか？

> テキストの中にアルファベットが含まれているかどうかを
大文字・小文字・全角・半角 等がありますが？

> Instr関数を使ってどのようになるのでしょうか？

では、大変でしょう。
大文字・小文字・全角・半角 等の条件や使用状況や後の処理等細かい条件で
色々やり方が変ってくるかと思うのですが、一般的には1文字づつ調べるかと
思います。
一番単純な方法
Private Sub Command1_Click()
    Dim s As String
    Dim i As Integer
    s = "123aあいうA花Ａ456ｚ"
    For i = 1 To Len(s)
        If fAlphabetCheck(Mid$(s, i, 1)) = True Then
            MsgBox i & "番目の[" & Mid$(s, i, 1) & "]は、英字です"
        End If
    Next i
End Sub

Private Function fAlphabetCheck(ByVal MyText As String) As Boolean
    Dim s1 As String
    s1 = UCase(MyText)
    s1 = StrConv(s1, vbNarrow)
    If s1 >= "A" And s1 <= "Z" Then
        fAlphabetCheck = True
    End If
End Function

Instr関数は使っていませんが、こんなのはどうでしょう

Private Sub Command1_Click()
    
    If Text1.Text Like "*[a-z,A-Z,ａ-ｚ,Ａ-Ｚ]*" Then
        MsgBox "アルファベットが入っています"
    End If
    
End Sub