主题：任意两个连续的字符串相同就认为相同的代码怎么找不到了？

请教大师：如果两个字符串中有两个连续字符相同，就认为相同。例如：中华民国人民，伟大的中华炎黄子孙人民万岁 。如何得出：就是一个祖宗？的代码？

Dim s1 = "中华民国人民"
Dim s2 = "伟大的中华炎黄子孙人民万岁"
For i As Integer = 0 To s1.length-2
    Dim s As String = s1.Substring(i,2)
    If s2.contains(s) Then
        msgbox(s)
    End If
Next

谢谢！任意两个以上相同怎么改？

Dim s1 = "中华民国人民"
Dim s2 = "伟大的中华民国炎黄子孙人民万岁"
For j As Integer = s1.length To 2 Step -1
    For i As Integer = 0 To s1.length-j
        Dim s As String = s1.Substring(i,j)
        If s2.contains(s) Then
            msgbox(s)
        End If
    Next
Next