I have a simple program that checks to see if a file is Checked Out on a SharePoint site. Is there a way to get the name of a person who has the file checked out?

docCheckOut = Path & FileName on SharePoint

[vba]
Private Sub UseCheckOut(docCheckOut As String)
'Determine if workbook can be checked out.
If Workbooks.CanCheckOut(docCheckOut) = True Then
'Check Out File
Workbooks.CheckOut docCheckOut
Else
'Get persons name who has checked out
sWhoHasOpen = "Persons Name"
End If
End Sub
[/vba]

Thanks for any help.

Roy