[megaloman]

Код:

If Server = "Server1" Or Server = "Server2" Or Server = "Server3" Then
    MsgBox "Условие выполняется  " + Server
Else
    MsgBox "Условие не выполняется  " + Server
End If

Код:

Si = Array("Server1", "Server2", "Server3", "Server4", "Server5")
N = UBound(Si)

Logica = False
For i = 0 To N
    Logica = (Server = Si(i))
    If Logica Then Exit For
Next

If Logica Then
    MsgBox "Условие выполняется  " + Server
Else
    MsgBox "Условие не выполняется  " + Server
End If

Код:

Si = UCase("'Server1'Server2'Server3'Server4'Server5'")

If InStr(Si, UCase("'" + Server + "'")) <> 0 Then
    MsgBox "Условие выполняется  " + Server
Else
    MsgBox "Условие не выполняется  " + Server
End If

[Iska]

Можно проще:

Код:

Select Case server
	Case "server1", "server2", "server3"
		any.function
	Case Else
		another.function
End Select