by Andrew Silvernail (2 Submissions)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 14th October 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Function to search for a substring within a string.
API Declarations
Dim intloop As Integer 'loop control
strChar As String 'individual character
strChar = Mid(strText, intloop, 1)
If strChar = Mid(strSub, 1, 1) OR _
Mid(strSub, 2, Len(strSub)) = Mid(strText, intloop + Len (strSub) - 1) Then
SubString = True
End If
Next
End Function