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, Char()),StringSplitOptions.RemoveEmptyEntries)
words = phrase.Split(New Char() {},StringSplitOptions.RemoveEmptyEntries)
End Sub
End Class