Retornar un arreglo (array)

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = "hola,chao,hallo,bye"
        Dim datos() As String = split_data(str)
    End Sub
    Public Function split_data(ByVal str As String) As String()
        Return str.Split(",")
    End Function
End Class