Public Shared Function WordSplit(sIn As String, sSep As String) As String()

        Dim a() As String = RegularExpressions.Regex.Split(sIn, sSep)

        Return a

    End Function