[Resolvido]Verificar a existência de mais de um caminho

Boa Tarde!!!

 Estou usando o seguinte código abaixo para identificar um determinado caminho, porém necessito de verificar três caminhos distintos antes de uma ação e não apenas um, ou um por vêz.
 Portanto, da forma como eu apresentei o código funciona, mas é identificado um caminho existente assim como o não existente e a ação é executada de qualquer forma em cada módulo conforme o critério, mas preciso que a verificação identifique os caminhos e execute uma determinada ação apenas se todos os caminhos existirem, porem se um dos caminhos quaisquer não existir então não executa a ação, mesmo que um ou dois caminhos existam, pois quero que todos os caminhos existam para executar a ação.

 Se alguém puder me ajudar nesta agradeço

Segue código

Option Compare Database
'Botão de Comando
Private Sub Comando0_Click()
Call VerificaPDF
Call VerificaImagem
Call VerificaTab
End Sub

'Procedimento que identifica o caminho 1
Sub VerificaPDF()
   Dim Caminho1 As Variant
'Verifica se existe o caminho
   Caminho1 = "Y:\"
   If Dir(Caminho1) = vbNullString Then
   strCheck = False
   Else
   strCheck = True
   End If
   If strCheck Then
   MsgBox "O arquivo: " & Caminho1 & " foi encontrado!", vbInformation
'Se o caminho foi encontrado executa esta ação
   Else
   MsgBox "O arquivo: " & Caminho1 & " não foi encontrado!", vbCritical
'Se o caminho não foi encontrado executa esta ação
   End If
End Sub

'Procedimento que identifica o caminho 2
Sub VerificaImagem()
   Dim Caminho1 As Variant
'Verifica se existe o caminho
   Caminho2 = "X:\"
   If Dir(Caminho2) = vbNullString Then
   strCheck = False
   Else
   strCheck = True
   End If
   If strCheck Then
   MsgBox "O arquivo: " & Caminho2 & " foi encontrado!", vbInformation
'Se o caminho foi encontrado executa esta ação
   Else
   MsgBox "O arquivo: " & Caminho2 & " não foi encontrado!", vbCritical
'Se o caminho não foi encontrado executa esta ação
   End If
End Sub

'Procedimento que identifica o caminho 3
Sub VerificaTab()
   Dim Caminho3 As Variant
'Verifica se existe o caminho
   Caminho3 = "W:\"
   If Dir(Caminho3) = vbNullString Then
   strCheck = False
   Else
   strCheck = True
   End If
   If strCheck Then
   MsgBox "O arquivo: " & Caminho3 & " foi encontrado!", vbInformation
'Se o caminho foi encontrado executa esta ação
   Else
   MsgBox "O arquivo: " & Caminho3 & " não foi encontrado!", vbCritical
'Se o caminho não foi encontrado executa esta ação
   End If
End Sub

Att. Marcelino

Boa noite

'Botão de Comando
Private Sub Comando0_Click()
If VerificaPDF And VerificaImagem And VerificaTab Then
'Se o caminho não foi encontrado executa esta ação
End If
End Sub

'Procedimento que identifica o caminho 1
Function VerificaPDF() As Boolean
Dim Caminho1 As Variant
'Verifica se existe o caminho
Caminho1 = "Y:\"
If Dir(Caminho1) = vbNullString Then
VerificaPDF = False
Else
VerificaPDF = True
End If
End Function

'Procedimento que identifica o caminho 2
Function VerificaImagem() As Boolean
Dim Caminho1 As Variant
'Verifica se existe o caminho
Caminho2 = "X:\"
If Dir(Caminho2) = vbNullString Then
VerificaImagem = False
Else
VerificaImagem = True
End If
End Function

'Procedimento que identifica o caminho 3
Function VerificaTab() As Boolean
Dim Caminho3 As Variant
'Verifica se existe o caminho
Caminho3 = "W:\"
If Dir(Caminho3) = vbNullString Then
VerificaTab = False
Else
VerificaTab = True
End If
End Function

Boa Noite!!!
Alexandre Neves

Como sempre este é um dos fóruns de quem entende do assunto, para aqueles como eu com pouca experiência em VBA  recorrem.
Muito obrigado, sua revisão ficou perfeita, era exatamente o que eu precisava, eu apenas coloquei um Else no If do botão de comando para uma tomada de decisão ou uma msg ao usuário, mas graças a você o código ficou nota 1000.
Mais uma vez muito obrigado, e boas festas de fim de ano, para você e sua família e a todos do fórum.
Grande Abraço.

Att. Marcelino

Tinha me esquecido de clicar em resolvido.