overzichterlijker kijken voor woord in string

[Spy1]

Hallo!

Ik heb een iets waar ik me aan irriteer. Ik heb de onderstaande code om er achter te komen welke website de URL is. Maar ik vind de code 100x niks, ik vind het onoverzichtelijk en ik denk ook dat het op een snellere manier kan. Wie kan me helpen?!

[CPP]Function WelkeFileHosting(ByVal URL) As String

Dim beginIndex As Integer

beginIndex = URL.IndexOf("rapidshare")

If beginIndex = -1 Then

beginIndex = URL.IndexOf("megaupload")

If beginIndex = -1 Then
Return "Onbekende website"
Else
Return "Megaupload"
End If
Else
Return "Rapidshare"
End If
End Function[/CPP](Code is ingekort, bedenk maar hoe onoverzichterlijk het eruit ziet als ik wil kijken voor nog is 10 websites)

 

[Spiderman]

Hoi

Is dit iets

    Function WelkeFileHosting(ByVal URL As String) As String
        Dim RetVal As String = "Onbekende website"
        Dim Checking() As String = {"rapidshare", "Megaupload"}

        For Each check As String In Checking
            If URL.ToLower.Contains(check.ToLower) Then
                RetVal = check
                Exit For
            End If
        Next

        Return RetVal
    End Function