Private Sub Command1_Click()
Dim k As Long
Dim Er As String
Dim arrayX As Variant
Dim n As Integer, Rec As Integer
Dim cont As String, mStr As String
Dim myArray() As String
Dim Varfull As Variant

On Error GoTo Error

'*** Dimention array
Varfull = Split(rtb.Text, vbCrLf)
Rec = UBound(Varfull)
'MsgBox Rec

ReDim myArray(Rec)

For k =  1  To Rec
mStr = Piece(rtb.Text, "" & vbCrLf & "", k)
myArray(k) = mStr
Next k

ReDim Preserve myArray(k)
arrayX = myArray(k)

MsgBox arrayX

Exit Sub
Error:
MsgBox ("Error: " & err.Description)

End Sub

Private Sub Command1_Click()
Dim k As Long
Dim Er As String
Dim  Rec As Integer
Dim cont As String, mStr As String
Dim myArray() As String
Dim Varfull As Variant

On Error GoTo Error

'*** Dimention array
Varfull = Split(rtb.Text, vbCrLf)
Rec = UBound(Varfull)
'MsgBox Rec

ReDim myArray(Rec)

For k =  1  To Rec
mStr = Piece(rtb.Text, "" & vbCrLf & "", k)
myArray(k) = mStr
Next k

ReDim Preserve myArray(k)

Exit Sub
Error:
MsgBox ("Error: " & err.Description)

End Sub