' Identify the object.
Dim oObjVer As MFilesAPI.ObjVer
'...

' Get the version data and check if the object version is checked out. If the version is checked out, it must be
' checked out for current user -- otherwise the version wouldn't be visible for the user.
Dim oObjectVersionAndProperties As MFilesAPI.ObjectVersionAndProperties = _
    oVault.ObjectOperations.GetObjectVersionAndProperties(oObjVer)

If oObjectVersionAndProperties.VersionData().ThisVersionCheckedOut() Then
'     This object is checked out for current user.
End If