Bug? Regex Possible Issue

[INDENT]Dim ScannedText As String = "ABC|DEF|GHI"[/INDENT]
            'Doesn't work
        Dim ScanComponents() As String = Regex.Split("|", ScannedText )

        ScannedText = ScannedText.Replace("|",";")
            'work's
        Dim ScanComponents() As String = Regex.Split(";", ScannedText )

Regex.Split("\|", ...

    Dim ScannedText As String = "ABC|DEF|GHI"  
    Dim ScanComponents() As String = Regex.Split("\|", ScannedText )
    Log(ScanComponents.Length)