Imports System

Public Module Module1

    Public Sub Main()

        Dim url As String = "//server/reportserver_somedumguy"

        Dim instanceName As String = ""

        If url.EndsWith("_somedumguy") = True Then

            instanceName = "\dumguy"

        Else If url.EndsWith("_else") = True Then

                instanceName = "\else"

        End If

        Console.WriteLine(instanceName)

    End Sub

End Module