Visual Basic para Aplicaciones - Ayuda

necesito realizar una busqueda en un archivo plano el codigo es el siguiente tiene un error y no le encuntro la solucion
Public Function getBuscar(ByVal pcodigo As Integer) As Nave
FileOpen(1, "Nave.txt", OpenMode.Random, , , 40)
Dim unanave As New Nave
FileGet(1, unanave, pcodigo)

If unaNave.Codigo <> "" Then
Dim dev As New Nave
dev.Nombre = unaNave.Nombre
dev.Codigo = unaNave.Codigo
dev.Pais = unaNave.Pais
dev.CapacidadDeCarga = unaNave.CapacidadDeCarga
If unaNave.Calado <> "" Then
dev.Calado = unaNave.Calado
dev.Unidad = unaNave.Unidad
End If
Return dev
Else
Throw New Exception("Codigo Inexistente")
End If
el error esta en pcodigo como deberia de ser la estructura?