General discussion
Thread display: Collapse - |
All Comments
Start or search
Create a new discussion
If you're asking for technical help, please be sure to include all your system info, including operating system, model number, and any other specifics related to the problem. Also please exercise your best judgment when posting in the forums--revealing personal information such as your e-mail address, telephone number, and address is not recommended.
"Fill String" Replicate Characters
Public Sub FillString( _
ByVal Value As String, _
ByVal StringLength As Integer, _
ByRef Result As String)
Result = Result & Value
Do While Len(Result) < StringLength
FillString Value & Value, StringLength, Result
Loop
Result = Left(Result, StringLength)
End Sub