No problem:-

The line that causes a problem is:-
status = PvcsOpenArchive(ByVal SelectedFile, ByVal workfile, ByVal
Len(workfile), ByVal archive, ByVal Len(archive), PVCS_OPEN_RDONLY, handle)
Function GetRevisionInfo(SelectedFile As String)
Dim handle As Long ' Handle for the archive to be
opened
Dim workfile As String * 256 ' Workfile
Dim archive As String * 256 ' Archive
Dim status As Integer ' Status returned from the DTK
function
Dim revision As String ' Revision number
Dim branch_count As Long ' Number of branches
Dim lock_count As Long ' Number of locks
Dim level As Long ' Revision level
Dim checkin_date As String * 35 ' Date revision was checked in
Dim modify_date As String * 35 ' Date revision was modified
Dim ordinal As Long ' Ordinal number
Dim receive_revision As String * 35 ' Revision number that was looked at
by the function
Dim revision_index As Long ' Revision index number
Dim flags As Long ' Flags
Dim txtQueryResults As String, txtOpenResults As String ' Status
indicators
Dim txtInfoResults As String, txtCloseResults As String ' Status
indicators

' Initialize configuration settings
status = PvcsQueryConfiguration(ByVal 0&, ByVal 0&, 0,
PVCS_CONFIG_OVERWRITE)
txtQueryResults = status

' Open archive for read-only access
status = PvcsOpenArchive(ByVal SelectedFile, ByVal workfile, ByVal
Len(workfile), ByVal archive, ByVal Len(archive), PVCS_OPEN_RDONLY, handle)
txtOpenResults = status

' Get information about the revision
' Archive handle
' Name of the archive or workfile
' Revision to retieve information about
' Buffer receiving number of brances off this revision
' Buffer receiving number of locks on this revision
' Buffer receiving revision level
' Buffer receiving name of archive owner
' Buffer receiving the date that the revision was checked in
' Buffer receiving the date that the revision was modified
' Buffer receiving the ordinal number
' Buffer receiving the revision number
' Revision information structure about which to return information
' Flags
' revision = "1.3" ' This can be a revision number, label, or
promotion group
status = PvcsGetRevisionInfoVB(ByVal handle, ByVal SelectedFile, ByVal
revision, _
branch_count, lock_count, level, ByVal checkin_date, ByVal
modify_date, _
ordinal, ByVal receive_revision, ByVal revision_index,
PVCS_REVINFO_USE_DATETIME_FORMAT)
txtInfoResults = status

'txtArchive = SelectedFile
'txtRevisionNbr = revision
'If status = 0 Then ' Display the output
'txtNbrBranches = branch_count
'txtNbrLock = lock_count
'txtRevLevel = level
'txtCheckInDate = checkin_date
'txtModDate = modify_date
'txtOrdinal = ordinal
'txtRevisionGot = receive_revision
'txtRevIndex = revision_index
'End If

GetRevisionInfo = receive_revision

' Close archive
status = PvcsCloseArchive(handle) ' Pass in the handle to the
archive
txtCloseResults = status
End Function