still getting the same error

it breaks at the line
mvarWinsock.SendData "helo " & mvarSMTPhost & vbCrLf