Imports System
Class Sample
Public Shared Sub Main()
Dim phrase As String = "this is a test"
Dim words() As String
words = phrase.Split(TryCast(Nothing, String()), 3,StringSplitOptions.RemoveEmptyEntries)
words = phrase.Split(New String() {}, 3,StringSplitOptions.RemoveEmptyEntries)
End Sub
End Class