Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private Sub Command1_Click()
Dim StringToCheck As String
Dim SpecificWord As String
StringToCheck = "the quick brown fox"
SpecificWord = "FOX"
If InStr(1, StringToCheck, SpecificWord, vbTextCompare) Then
MsgBox "Found '" & SpecificWord & "' in '" & StringToCheck & "'"
Else
MsgBox "Did not find '" & SpecificWord & "' in '" & StringToCheck & "'"
End If
End Sub