Condição para a condição. Interferência de End If

Boas galera,

Esbarrei em uma questão e gostaria do auxilio dos mestres presentes para minha aprimoração.
Segue a seguinte sequencia:

Private Sub Comando0_Click()

If IsNull(Me.Texto1) Then
   If Me.Texto3 < Me.Texto1 Then
       DSum (Me.Texto3 * Me.Texto5)
       
Else
   If Me.Texto5 < Me.Texto3 Then
       DSum (Me.Texto1 * Me.Texto5)
       
End If
   MsgBox "Alguma condição deve ter sido ativada e o codigo seguira daqui", vbInformation
   End If


End Sub

A questão é que o 3 IF esbarra no 1° End If mas ele deveria ser do 1 if.
Existe alguma solução para resolver esta questão deste modo? Ou não é possivel adicionar Uma condição para criar condições para que caso essa segunda condição seja cumprida fechar a primeira e dar
continuidade a segunda condição.

Pss.: Não gostaria de utilizar GoTo Line se houver outra alternativa agradeço.

Bom dia...

Utilize  o Select Case para isso.

Veja o link:
https://www.maximoaccess.com/t14914-funcao-interna-select-case?highlight=select+case

Silvio Grato pela resposta.
Mas houve um erro. Case sem Select Case
Talvez eu não esteja fazendo corretamente mas acho que existe uma interferência devido abrir uma condição.


Select Case IsNull(Me.Texto1) Then
Case 1
  If Me.Texto3 < Me.Texto1 Then
      DSum (Me.Texto3 * Me.Texto5)
     
Case 2
  If Me.Texto5 < Me.Texto3 Then
      DSum (Me.Texto1 * Me.Texto5)
     
End Select
  MsgBox "Alguma condição deve ter sido ativada e o codigo seguira daqui", vbInformation
Else
MsgBox "Nenhuma condição foi ativada e o codigo não seguira",vbInformation
  End If

Boa tarde,
Nomeie de forma normalizada. O código como está não é inteligível
Descreva o que pretende