Dim strTest As String
Dim TestArr As Variant
strTest = CodeTxt.Text
TestArr = Split(strTest, vbCrLf)
Dim i As Integer
For i = 0 To UBound(TestArr)
MsgBox TestArr(i)
Next
Dim strTest As String
Dim TestArr As Variant
strTest = CodeTxt.Text
TestArr = Split(strTest, vbCrLf)
Dim i As Integer
For i = 0 To UBound(TestArr)
MsgBox TestArr(i)
Next