Select...End Select

Select is similar to the “switch” statement syntax in other languages

Select Case lngLocation
    Case adUseServer
        GetLocation = "ServerSide"
    Case adUseClient
        GetLocation = "ClientSide"
End Select