Private Sub grid_Manobras_DblClick()
Dim A As String
Dim L As Integer
Dim Custo As String

L= grid_Manobras.Row
A = grid_Manobras.TextMatrix(L, 1)

If A = Empty Then
   Custo = grid_Manobras.TextMatrix(L, 5)
   txt_valor = grid_Manobras.TextMatrix(L, 1) 'Trem
   cmd_Solicita.Enabled = False
   cmd_cancela.Enabled = True
Else
   Exit Sub
End If
End Sub

Vejamos como funciona
O Número da linha e carregada na variável L pelo código L= grid_Manobras.Row
O Custo e carregado pelo valor da linha (L,5) onde L e o Número da linha selecionada.



Abraços