Public Shared Function Replicate(ByVal cExpression As String, ByVal nTimes As Integer) As String 'Create a stringBuilder Dim sb As StringBuilder = New StringBuilder() 'Insert the expression into the StringBuilder for nTimes sb.Insert(0, cExpression, nTimes) 'Convert it to a string and return it back Return sb.ToString() End Function~~Bonnie