Private Sub btnDone_Click(ByVal sender As System.Object, ByVal e As _
             System.EventArgs) Handles btnDone.Click
  Dim i As Integer
  Dim NewLine As String

  NewLine = Chr(13) & Chr(10)
  txtList.Text = ""

  For i = 0 To UBound(MyList)
    txtList.Text += MyList(i).Name & "  " & MyList(i).Phone & NewLine
  Next
End Sub
