Функции обработки строк

Sub ArrayString(a As String, b() As String)
 
 
For i = 0 To UBound(b)
Print StringAndString(a, b(i))
Next
 
End Sub
Function StringAndString(str1 As String, str2 As String) As Integer
Dim a As String
Dim b As String
a = " "
b = " "
Dim string1 As String, string2 As String
''string1 = Text1.Text
''string2 = Text2.Text
n = 0
Do While a = b
a = Mid(str1, n + 1, 1)
b = Mid(str2, n + 1, 1)
If a = b Then n = n + 1
 
Loop
 
 
p = n
End Function

FUNCTION StringAndString(str1 AS STRING, str2 AS STRING) AS INTEGER

Print StringAndString(a, b(I))

StringAndString = n

Option Explicit
 
Private Sub Комманда1_Click()
Dim S As String
Dim M() As String
Dim QWERT
S = "мама мыла машу мылом"
M = Split(S)
MsgBox StringAnd(M)
End Sub
 
Function StringAnd(ST() As String) As Byte
StringAnd = 1
Dim N
Dim T
Dim J
Dim I As Integer
N = 1
For I = 0 To UBound(ST)
DOB:
T = Left(ST(I), N)
       For J = I + 1 To UBound(ST)
       DoEvents
       If T = Left(ST(J), N) Then N = N + 1: GoTo DOB
       Next J
       If StringAnd < N Then StringAnd = N: N = 1
Next I
End Function