Multiple TOs Email Address In VB.NET

Private Sub MultipleEmail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DTT As New DataTable
        DTT.Columns.Add("Name")
        DTT.Columns.Add("Email")
        DTT.LoadDataRow(New Object() {"WIRAT", "wirat@email.qom"}, True)
        DTT.LoadDataRow(New Object() {"MODJO", "modjo@email.qom"}, True)
        DTT.LoadDataRow(New Object() {"ARKAN", "arkan@email.qom"}, True)
        DgvMail.DataSource = DTT.DefaultView
    End Sub

    Private Sub BtnVIEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVIEW.Click
        Dim eAddress As String = ""
        Dim Mail As Integer = 0
        Dim Dgv As Boolean = True
        For Mail = 0 To (DgvMail.Rows.Count - 1)
            If Not Dgv Then
                eAddress += "; "
            End If
            eAddress += DgvMail.Rows(Mail).Cells(1).Value.ToString()
            Dgv = False
        Next
        LblMAILTO.Text = eAddress
    End Sub

    Private Sub BtnCLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCLEAR.Click
        LblMAILTO.Text = ""
    End Sub