Public Sub IsCheckedOutToMe(DocFullName As String, CheckedOut As Boolean, CheckedOutBy As String)
On Error GoTo ErrorHandler
'****
Dim oADoc as ApprenticeServerDocument
Dim oA  As New ApprenticeServerComponent

Rem Statusüberprüfung (Ausgecheckt ?)

Set oADoc = oA.Open(DocFullName)
CheckedOut = oADoc.ReservedForWrite
Dim CheckedOutByMe As Boolean
CheckedOutByMe = oADoc.ReservedForWriteByMe

If (CheckedOutByMe = False And CheckedOut = False) Then
 MsgBox "Datei ist nicht ausgecheckt!", vbInformation
End If

If (CheckedOut = True And CheckedOutByMe = False) Then
 Dim AusleihMsg As String
 CheckedOutBy = oADoc.ReservedForWriteLogin
End If

Call ResetObjektVarsIVHandler
Exit Sub
ErrorHandler:
 MsgBox "Es ist ein Fehler beim prüfen des Auscheckzustandes aufgetreten" & vbNewLine & "Fehler : " & Err.DESCRIPTION
 Call ResetObjektVarsIVHandler
End Sub