' 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

