Dim str1 As String
Dim str2 As String
Dim str3 As String
str1 = Text1
str2 = Text2
str3 = Replace(str1, str2, "")
Text3 = (Len(str1) - Len(str3)) \ Len(str2)
End Sub