Option Strict Off
Imports System

Public Class Test
    Public Shared Sub Main()
    	Dim x As String = "abcdef"
        Dim y As String = "d"
        For Each z As String In MySplit(x, y)
            Console.WriteLine(z)
        Next
    End Sub
    Shared Function MySplit(ByVal str As String, ByVal ParamArray separator As Char()) As String()
        Console.WriteLine("Char")
        Return str.Split(separator)
    End Function
    Shared Function MySplit(ByVal str As String, ByVal ParamArray separator As String()) As String()
        Console.WriteLine("String")
        Return str.Split(separator, StringSplitOptions.None)
    End Function
End Class