Small note..

Should
Code:
txtData/Text = txtData.Text & "-=-=-=-=-=-=-=" & vbCrLf
Be this instead:
Code:
txtData.Text = txtData.Text & "-=-=-=-=-=-=-=" & vbCrLf