VB 给定源字符串a和目标字符串b，找出源字符串在目字符串中出现的次数。

Private Sub Command1_Click()
Dim a, b, n
a = "AB"
b = "aekdABf9lAB&*&*&^%^$^jlk9uAB90klj..jl;"
n = (Len(b) - Len(Replace(b, a, ""))) / Len(a)
MsgBox a & vbCrLf & " 在 " & vbCrLf & b & vbCrLf & " 中出现了 " & n & "次."
End Sub

msgbox UBound(Split(源字符串a, 字符串b))