Problema al leer caracteres extraños [VS-2008]

[Mirador]

Buenas. Tengo un problema que no se como solucionar. Tengo un TXT con unos caracteres extraños extraidos de un juego koreano. Tengo una funcion para leerlo y empeza a procesarlo (compararlo con unas imagenes y tal), la cosa es que al leerlo los caracteres extraños se transforman en cuadrados (ascii--63 segun he comprobado).

Tengo el paquete de idiomas asiatico instalado, pero ni con esas funciona....

Os dejo mi funcion de lectura y parte del TXT que tengo:

TXT: (si lo veis bien es algo como º¡â¬ y cosas asi) :P.

Código:

//file start 20090317
2101#°¡µå#
2102#°¡µå#
2103#¹öŬ·¯#
2104#¹öŬ·¯#
2105#½¯µå#
2106#½¯µå#
2107#¹Ì·¯½¯µå#
2108#¹Ì·¯½¯µå#
2201#¼±±Û·¡½º#
2202#¼±±Û·¡½º#
2203#±Û·¡½º#
2204#±Û·¡½º#
2205#¹°¾È°æ#
2206#¸é»çÆ÷#
2207#Àå½Ä¿ë²É#
2208#¸®º»#
2209#¸®º»#

Funcion leerTxt:

Código:

Public Function fLeerTXT(ByVal strFichero As String)
        Dim reader As IO.StreamReader = New IO.StreamReader(strFichero)
        Dim strTexto As String
        Try
            strTexto = reader.ReadToEnd
            reader.Close()
            fLeerTXT = strTexto
        Finally
            reader = Nothing
        End Try
    End Function

Saludos y muchas gracias!

[Mirador]

Vale, soy un caneloide... ya lo resolví >_<

Código:

Public Function fLeerTXT(ByVal strFichero As String)

        Dim reader As IO.StreamReader = New IO.StreamReader(strFichero, System.Text.Encoding.Default)
        Dim strTexto As String
        Try
            strTexto = reader.ReadToEnd
            reader.Close()
            fLeerTXT = strTexto
        Finally
            reader = Nothing
        End Try
    End Function

saludos y gracias igualmente