' Replicate a string a given number of timesFunction ReplicateString(ByVal Source As String, ByVal Times As Integer) As _    String    Dim i As Integer    Dim sb As New Text.StringBuilder(Source.Length * Times)    For i = 1 To Times        sb.Append(Source)    Next    Return sb.ToStringEnd Function