Making a mailer, var not defined?

[gosmo]

I dont know what to change var to in this code. But I am getting an error that says Type 'var' is not defined. What do I change it to?

Namespace SendMail
    Friend Class Mailer
        ''' <summary>
        ''' Sends an email using the provided parameters.
        ''' </summary>
        ''' <param name="smtpInfo">The SMTPInfo struct filled with your needed SMTP connection info.</param>
        ''' <param name="from">The email address to send from.</param>
        ''' <param name="to">An array of names to send the email to. (Can be simply a single email address, this allows for multiple recipients of the same message.</param>
        ''' <param name="message">The body of the email.</param>
        ''' <param name="subject">The subject of the email.</param>
        Public Shared Sub SendEmail(ByVal smtpInfo As SMTPInfo, ByVal from As String, ByVal [to] As String(), ByVal message As String, ByVal subject As String)
            Try
                For Each recipient As var In [to]
                    ' Get a new MailMessage to be sent and fill it with the info we need.
                    Dim msg As New MailMessage(New MailAddress(from), New MailAddress(recipient))
                    msg.Subject = subject
                    msg.Body = message.Trim() + Environment.NewLine
                    msg.Priority = MailPriority.High
                    msg.IsBodyHtml = True

                    ' Setup the SMTP Client info.
                    Dim client As New SmtpClient(smtpInfo.Host, smtpInfo.Port)
                    If smtpInfo.SSL Then
                        client.EnableSsl = True
                    End If
                    If smtpInfo.Auth Then
                        client.Credentials = New NetworkCredential(smtpInfo.Name, smtpInfo.Pass)
                    End If
                    AddHandler client.SendCompleted, AddressOf SmtpClient_OnCompleted

                    ' Hook the SendCompleted event so we can do some post processing and send the email.
                    client.Timeout = 60
                    Dim tmp As Object = msg
                    client.SendAsync(msg, tmp)
                Next

            Catch ex As Exception
            End Try
        End Sub

        Private Shared Sub SmtpClient_OnCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
            ' Add your event handler stuff here.
            ' MailMessage mail = (MailMessage) e.UserState;
        End Sub
        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim info As New SMTPInfo("localhost", "null", "null", 587, True, False)
            'SMTPInfo info;
            'info.Host = "localhost";
            'info.Port = 433;
            'info.Name = "[email protected]";
            'info.Pass = "password";
            'info.SSL = false;
            'info.Auth = true;
            Dim toString As String() = New String(0) {}
            toString(0) = "[email protected]"
            Mailer.SendEmail(info, "[email protected]", toString, "idk", "your subject here")
        End Sub
    End Class


    ''' <summary>
    ''' Information to setup a SMTP host connection.
    ''' </summary>
    Friend Structure SMTPInfo
        ''' <summary>
        ''' Constructor for the SMTPInfo struct.
        ''' </summary>
        ''' <param name="host">The SMTP Host. (Either fully qualified HTTP address [http://www.yoursmtphost.com] or the IP address.</param>
        ''' <param name="name">If the SMTP host requires authentication, this will be your username. Can be set to null.</param>
        ''' <param name="pass">If the SMTP host requires authentication, this will be your password. Can be set to null.</param>
        ''' <param name="port">The SMTP host's port.</param>
        ''' <param name="secureSSL">If the SMTP host uses an SSL connection (https://www.mail.google.com for example) set this to true.</param>
        ''' <param name="requiresAuth">If the SMTP host requires authentication, set this to true. This will use your Name and Pass to login.</param>
        Public Sub New(ByVal host As String, ByVal name As String, ByVal pass As String, ByVal port As Integer, ByVal secureSSL As Boolean, ByVal requiresAuth As Boolean)
            host = "smtp.gmail.com"
            name = "null"
            pass = "null"
            port = 587
            SSL = "http://www.mail.google.com"
            Auth = False
        End Sub
        Public Auth As Boolean
        Public Host As String
        Public Name As String
        Public Pass As String
        Public Port As Integer
        Public SSL As Boolean
    End Structure

End Namespace

[Apoc]

Change var to String.