Olá,
O Select Case é mais adequado quando você possui uma grande quantidade de opções, sendo que na situação inversa, em que se tenha apenas duas opções o uso de If...Then...Else se torna mais adequada. Abaixo eu criei um exemplo do uso de If...Then...Else e o mesmo código com Select Case:
If Tipo = "Produto" Then
<rotina1>
ElseIf Tipo = "Material" Then
<rotina2>
ElseIf Tipo = "Ferramenta" Then
<Rotina3>
ElseIf Tipo = "Modelo" Then
<Rotina4>
End If
Select Case Tipo
Case "Produto"
<Rotina1>
Case "Material"
Case "Ferramenta"
<Rotina3>
Case "Modelo"
<Rotina4>
End Select
Além disso, o select case permite também várias opções no mesmo "case", mais prático:
Select Case Tipo
Case "Produto" To "Ferramenta" <-- Aqui os Tipos Produto, Material e Ferramenta são aceitos
<Rotina5>
End Select
ou ainda
Select Case Tipo
Case "Produto", "Ferramenta" <-- Aqui apenas os tipos Produto e Ferramenta são aceitos
End select
Select Case Tipo
Case Is <= "Ferramenta" <-- Todo tipo menor ou igual a Ferramenta é aceito
Case Is > "Modelo" <-- Todo tipo maior que Modelo é aceito
End Select
Enfim, o uso do Select é mais legível que o If...Then...Else apenas se você tiver várias opções para avaliar, caso contrário, use o If, pois não há nada que o Select case faça que o If não faça.
