Split String for Word Wrapping

Public Function SplitLines(Txt As String, P As Object, W As Single) As String()
Dim Lines() As String, CurrW As Single, CurrWord As String
Dim L As Integer, i As Integer, WCnt As Integer
CurrW = 0
L = Len(Txt)
If (P.TextWidth(Txt) > W) Or (InStr(Txt, vbCr) > 0) Then
	i = 1
	WCnt = 1
	ReDim Lines(WCnt) As String
	Do Until i > L
		CurrWord = ""
		Do Until i > L Or Mid(Txt, i, 1) <= " "
			CurrWord = CurrWord & Mid(Txt, i, 1)
			i = i + 1
		Loop
		If CurrW + P.TextWidth(CurrWord) > W Then
			WCnt = WCnt + 1
			ReDim Preserve Lines(WCnt) As String
			CurrW = 0
		End If
		Lines(WCnt) = Lines(WCnt) + CurrWord
		CurrW = P.TextWidth(Lines(WCnt))
		Do Until i > L Or Mid(Txt, i, 1) > " "
			Select Case Mid(Txt, i, 1)
			Case " "
				Lines(WCnt) = Lines(WCnt) + " "
				CurrW = P.TextWidth(Lines(WCnt))
			Case vbLf
			Case vbCr
				WCnt = WCnt + 1
				ReDim Preserve Lines(WCnt) As String
				CurrW = 0
			Case Chr(9)
				Lines(WCnt) = Lines(WCnt) + " "
				CurrW = P.TextWidth(Lines(WCnt))
			End Select
			i = i + 1
		Loop
	Loop
Else
	ReDim Lines(1) As String
	Lines(1) = Txt
End If
For i = 1 To WCnt
  Lines(i) = LTrim(RTrim(Lines(i)))
Next i
SplitLines = Lines
End Function