This example retrieves the logon alias of the person who checked out the file.
Note You must have a source control project to run this example.
Private Sub GetCheckedOutBy()
Dim myCheckedOutAlias As String
myCheckedOutAlias = _
ActiveWeb.RootFolder.Files(0).CheckedOutBy
End Sub