'/**
' * Wiederholt einen String
' * @param  String   zu wiederholender String
' * @param  Integer  Anzahl weiderholungen
' * @return String   Resultat
' */
Function str_repeat(ByVal str As String, ByVal multiplier As Integer) As String
	Dim i As Integer
 
	For i = 1 To multiplier
		str_repeat = str_repeat & str
	Next i
End Function

Function count_in_str(ByVal token As String, str As String) As Long
	If str =  Or token =  Then Exit Function
	count_in_str = UBound(Split(str, token))
End Function