Olá Meu codigo não deu problema com a não utilização do ByRef mas não consegui entender ainda o motivo
Public Function Transferir(valor As Double, contaDestino As ContaCorrente)
Dim saldoSuficiente As Boolean = (Me.Saldo - valor) >= 0
If saldoSuficiente Then
Me.Saldo -= valor
contaDestino.SetSaldo(valor)
Return True
Else
Return False
End If