Declare Function CharToOem Lib "user32" Alias "CharToOemA" _
    (ByVal lpszSrc As String, _
    ByVal lpszDst As String) As Long
 
Dim tmpLong as Long
Dim Source as String
Dim Destination as String
 
tmpLong = CharToOem(Source, Destination)

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control