Como foi dito, o App.Path retorna o caminho onde está o executável.
Confirma se termina ou não em "\":
Ficheiro = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "Ficheiro.BMP" (escrito aqui e à mão... se estiver em algum ponto errado avisa, que eu não testei )
Porque podes estar a dizer "D:\Visual BasicFicheiro.BMP", enquanto que o correcto seria "D:\Visual Basic\Ficheiro.BMP".