Se ao abrir não encontrar em uma lista o valor passar para o próximo automaticamente

Pessoal é o seguinte, eu tenho um formulário que abre um outro formulário pegando o valor do primeiro e localizando o valor na caixa de listagem, tentei usar o código abaixo para caso ele abra não encontre o valor na caixa de listagem, ele procure um próximo valor baseado nas condições que coloquei, só que não tá dando certo, a caixa de texto fica sempre no mesmo valor não alterando

Private Sub Form_Load()
Dim X As String
X = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".jpg"
Me.Texto10 = X
Me.Lista0.Value = Me.Texto10.Value
Linha = Me.Lista0.ListIndex

Me.Texto7 = Me.Lista0.Value
If Me.Lista0.Value = "" Then
Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".01jpg"
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
ElseIf Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".01jpg" Then
Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".02jpg"
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
ElseIf Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".02jpg" Then
MsgBox ("Esse detento não possui fotos")
Else

Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
End If

End Sub

O que eu poderia mudar nesse código ou adaptar para dá certo?

Fiz umas mudanças mas não deu certo:

Dim X As String
X = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".jpg"

Me.Lista0.Value = X
Linha = Me.Lista0.ListIndex

Me.Texto7 = Me.Lista0.Value
If Not Me.Lista0.Value = X Then
Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".01jpg"
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
ElseIf Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".01jpg" Then
Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".02jpg"
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
ElseIf Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".02jpg" Then
MsgBox ("Esse detento não possui fotos")
Else

Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
End If

Ele tá ignorando a condicional que eu coloquei e tá indo direto para o comando depois do Else apresentando um erro dizendo que não foi possível exibir a foto, se eu pudesse tratar esse erro para caso houvesse o erro ele fosse para um outro valor na caixa de listagem, seria bom daria para também resolver

Esta condição: (If Not Me.Lista0.Value = X)
Nunca vai ser verdadeira, pois antes dela voce define o valor de Texto10 = a X e o valor de lista = a Texto10.
Me.Texto10 = X
Me.Lista0.Value = Me.Texto10.Value

Ou seja, lista é = X.

Acho que você pode simplesmente passar o valor para lista e verificar se ela tem um índice válido.
Algo mais ou menos assim:

X = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".jpg"
Lista.value = X

If IsNull(Lista.ItemData(1)) Then
' Valor inválido
Else
' Valor válido
End If

Att.