Option
Explicit
Private
Sub
TextBox1_Change()
Dim
arr()
As
String
, x
As
Integer
, tb5
As
String
On
Error
Resume
Next
arr = Split(
Me
.TextBox1.Text, Chr(13))
Me
.TextBox2.Text = Mid(Trim(arr(0)), 5, InStr(Trim(arr(0)),
"@"
) - 5)
Me
.TextBox3.Text = Mid(arr(1), 9, 6)
Me
.TextBox4.Text = Mid(arr(2), 16, 6)
For
x = 2
To
5
tb5 = tb5 & arr(x - 1) & Chr(13)
Next
x
On
Error
GoTo
0
Me
.TextBox5.Text = Trim(tb5)
End
Sub