Visual Basic - El argumento no es opcional

¿Que significa ese error, y sime sale en un control Winsock como se podra arreglar???

ese error significa que que a un procedimiento o evento al cual le proporcionas una serie de datos para que haga algo, le falta uno o varios de esos datos que debes proporcionarle.

si esto no te sirve, me interesaria que fueras un poco mas explicito.

saludos

El codigo es este:
Public Function SendEmail(MailServerName As String, FromName As String, FromEmailAddress As String, ToName As String, ToEmailAddress As String, EmailSubject As String, EmailBodyOfMessage As String)

Winsock1.LocalPort = 0 ' Must set local port to 0 (Zero) or you can only send 1 e-mail pre program start

If Winsock1.State = sckClosed Then ' Check to see if socet is closed
DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600"
First = "mail from:" + Chr(32) + FromEmailAddress + vbCrLf ' Get who's sending E-Mail address
Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf ' Get who mail is going to
Third = "Date:" + Chr(32) + DateNow + vbCrLf ' Date when being sent
Fourth = "From:" + Chr(32) + FromName + vbCrLf ' Who's Sending
Fifth = "To:" + Chr(32) + ToNametxt + vbCrLf ' Who it going to
Sixth = "Subject:" + Chr(32) + EmailSubject + vbCrLf ' Subject of E-Mail
Seventh = EmailBodyOfMessage + vbCrLf ' E-mail message body
Ninth = "X-Mailer: Meleb Worm" + vbCrLf ' What program sent the e-mail, customize this
Eighth = Fourth + Third + Ninth + Fifth + Sixth ' Combine for proper SMTP sending

Winsock1.Protocol = sckTCPProtocol ' Set protocol for sending
Winsock1.RemoteHost = MailServerName ' Set the server address
Winsock1.RemotePort = 25 ' Set the SMTP Port
Winsock1.Connect ' Start connection

Hola, tengo un problema, quiero pasar datos totales a otra tabla pero aparece error en compilacion, ayuda =), creo que el problema es el compo Dsum(CUOTA_PAGADA)

Public Function ControlDiferidos1()

Set Rst2 = CurrentDb.OpenRecordset("PAGOS_VOUCHERS", dbOpenDynaset)
Set Rst3 = CurrentDb.OpenRecordset("CUOTAS_SUMAS", dbOpenDynaset)

Do Until Rst2.EOF
If Rst2!CUOTA_PACTADA > 1 And Rst1!FECHA_PAGO = Forms![REPORTE_VOUCHERS]![TxtBusquedaDia] Then
Rst3.AddNew
Rst3("FECHA_CREACION") = Rst2!FECHA_PAGO
Rst3("NUM_PAGO") = Rst2!NUM_PAGO
Rst3("INSTITUCION_BANCARIA") = Rst2!INSTITUCION_BANCARIA
Rst3("CUOTA_PACTADA") = Rst2!CUOTA_PACTADA
Rst3("CUOTA_PAGADA") = DSuma(Rst2("CUOTA_PAGADA"))
Rst3.Update
End If
Rst1.MoveNext
Loop
Rst1.Close
Rst2.Close
Rst3.Close
Set Rst1 = Nothing
Set Rst2 = Nothing
Set Rst3 = Nothing
End Function