EmersonH.Com

Function WWrap(StrDummy As String, StrSize As Integer) As String

If Len(Trim(StrDummy)) < StrSize Then
WWrap = StrDummy
Exit Function
End If

Dim StrLine1 As String
Dim LoopI As Integer
Dim IntJ As Integer
LoopI = 1
StrLine1 = Mid(StrDummy, LoopI, StrSize)
WWrap = ""
While Trim(StrLine1) <> ""
If (Mid(StrDummy, (LoopI - 1) * Len(StrLine1) + 1, 1) <> " ") Then
IntJ = InStrRev(StrLine1, " ")
If IntJ <> 0 Then
StrDummy = Mid(StrDummy, 1, (LoopI - 1) * StrSize + IntJ - 1) + String(StrSize - IntJ + 1, " ") + Mid(StrDummy, (LoopI - 1) * StrSize + IntJ + 1)
End If
End If
LoopI = LoopI + 1
StrLine1 = Padr(Mid(StrDummy, (LoopI - 1) * StrSize + 1, StrSize), StrSize)
Wend
WWrap = StrDummy
End Function

InStr returns the first occurrence of a string inside another string.

InStr([start,] string1, string2 [, compare])

start

Optional. Character position where the search starts. If omitted, the search starts at the start of string1, position 1. Valid input values: 1 to Len(string1)

string1

The string to search in. Can be Null.

string2

The string to find. This is the text you want to find inside string1. It is usually shorter than string1. Can be Null.

compare

Optional. Specifies the type of string comparison.

• vbBinaryCompare (0) performs a fast binary comparison where each character matches only itself. This is the default.
• vbTextCompare (1) performs a text comparison.
• vbDatabaseCompare (2). For Microsoft Access (Windows only), performs a comparison based on information contained in your database.
• If you omit compare, InStr will use the setting of the Option Compare statement.

Binary comparison is the safest option. Text comparison rules vary by the system locale. In text comparison, what matches on one computer may not match on another.

Return value