Visual Basic

Public Function ReadField(ByVal NameArray As String, ByVal Field As Integer) As String

        'Dim NameArray As String
        # Dim LenString As UInteger = Len(NameArray(ComboBox1.SelectedIndex + 1))
        StringWpt = "" : Index = 0 : CommaCounter = 0

        Do Until CommaCounter = Field - 1
            * If NameArray(ComboBox1.SelectedIndex + 1)(Index) = "," Then CommaCounter = CommaCounter + 1
            Index = Index + 1
        Loop

        * If Index = Len(NameArray(ComboBox1.SelectedIndex + 1)) Then GoTo 10

        Do Until NameArray(ComboBox1.SelectedIndex + 1)(Index) = ","
            * StringWpt = StringWpt + NameArray(ComboBox1.SelectedIndex + 1)(Index)
            Index = Index + 1 : If Index = LenString Then Exit Do
        Loop

10:     Return LTrim(StringWpt)

    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyMailMessage As New MailMessage
        Try
            MyMailMessage.From = New MailAddress("FromEmail@gmail.com", "To Display Name")
            MyMailMessage.To.Add("ToEmail@hotmail.com")
            MyMailMessage.Subject = ("Status for " & TextBox1.Text)
            MyMailMessage.Body = ("System status for " & TextBox1.Text & " save and open with Excel")
            MyMailMessage.Attachments.Add(New Attachment("C:\Data.xls"))
            
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("FromEmail@Gmail.com", "Password")
            SMTP.Send(MyMailMessage)
            MsgBox("msg sent")
        Catch ex As Exception

Dim Data As New Attachment("c:\date.xls")
            MyMailMessage.Attachments.Add(Data)

Private Sub LogOutput_IP(ByVal logFile As String, ByVal msg As String)
        Using sw As StreamWriter = New StreamWriter(logFile, True)
            Dim theDate As Date = Now()
            Dim strHostName As String
            Dim strIPAddress As String

            strHostName = System.Net.Dns.GetHostName()
            strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(0).ToString()
            Dim sb As StringBuilder = New StringBuilder(theDate.ToString)
            sb.Append(vbTab & msg)
            sb.Append(vbTab & "Host Name: " & strHostName)
            sb.Append(vbTab & " IP Address: " & strIPAddress)
            sw.WriteLine(sb.ToString)
        End Using
    End Sub