VB4.0 - OEM til ANSI problem

Jeg skal konvertere noget OEM tekst til ANSI. For at gøre dette kalder jeg følgende funktion:

Function oem_to_ansi(ByVal txt As String) As String
  Dim s As String
  Dim X As Integer

  s = Space$(Len(txt))
  X = oemtoansi(txt, s)
  oem_to_ansi = s

End Function

...som kalder følgende funktion:

Declare Function oemtoansi Lib "Keyboard" (ByVal lpOemStr As String, ByVal lpAnsiStr As String) As Integer


Karakterer som "æ ø å" samt "Æ Ø" bliver fint konverteret. Men "Å" bliver til et "+".
Er der nogen der genkender dette problem?