[RESOLVED] String Split

[billboy]

I am trying to delete all parts of string after first occurence of '(' in the string
Thought I had it earlier it but I didnt test it properly

Dim Str As String = TextBox1.Text
        Dim words() As String = Str.Split(New [Char]() {"("c}, System.StringSplitOptions.None)
        Dim lastWord As String = words(words.Length - 2)

Does not work when I have two occurences of '(' in string