chr problem !!!

[useruseronline]

i use the following code for virtual key code conversion

If code = HC_ACTION And wParam <> 257 Then
        CopyMemory kybd, ByVal lParam, Len(kybd)
       Form1.Text1.Text = Form1.Text1.Text & Chr(kybd.vkCode)
        myfunc = CallNextHookEx(Hook, code, wParam, lParam)
        Else
      If code = HC_ACTION And wParam <> 13 Then
        CopyMemory kybd, ByVal lParam, Len(kybd)
       Form1.Text1.Text = Form1.Text1.Text & "enter key"
       ElseIf code < 0 Then
        myfunc = CallNextHookEx(Hook, code, wParam, lParam)
    End If
    End If

but it does not give any symbol for key 13 (enterkey) , how to do it ???

i want it write enterkey instead of blank symbol