Private Declare Function GetPrivateProfileString& Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName _
As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal _
nSize As _
Long, ByVal lpFileName As String)
 
Private Sub Form_load
MsgBox ConvertNero2VB(inilesen)
 
End Sub
 
Public Function inilesen(Pfad As String, Abschnit As String, Teilabschnit As _
  String) as String
Dim Rueckgabewert As String
Dim Default As String
Dim AnzZeichen As Long
Dim Result As Long
 
Default = "Exit"
AnzZeichen = 1000
Rueckgabewert = Space(AnzZeichen)
 
Result = GetPrivateProfileString(Abschnit, Teilabschnit, Default, Rueckgabewert _
, AnzZeichen, Pfad)
Rueckgabewert = Mid(Rueckgabewert, 1, Status)
If lcase(Rueckgabewert) = "exit" Then Exit Sub
inilesen=Rueckgabewert
End Sub
 
Function ConvertNero2VB(ByVal strDate As String) As Date
 
Dim tYear As String
Dim tMonth As String
Dim tDay As String
Dim tHour As String
Dim tMinute As String
 
tYear = Left$(strDate, 1)
tMonth = Mid$(strDate, 2, 2)
tDay = Mid$(strDate, 4, 2)
tHour = Mid$(strDate, 6, 2)
tMinute = Right$(strDate, 2)
ConvertNero2VB = CDate(tDay + "." + tMonth + "." + tYear + " " + tHour + ":" + _
  tMinute)
 
End Function

Sorry das ich?s nicht verlinken oder hervorheben kann, aber ich benutz Opera und da funktionieren diese Funktionen anscheinend nicht.
--------------------------------------------------------
Ich hoffe, ich konnte helfen/ihr k?nnt mir helfen.
Simon