Thanks that helped... I think I have it figured out.
This code works... I just think it could be a little bit cleaner... Dim MyString, MyLine As String
Dim Point1, Point2 As Integer
Dim StrLen1, StrLen2
MyString = [Me.MyTextBox]
Point1 = 1
Point2 = 1
While...