Se puede hacer devolviendo un tipo Variant. Ejemplo:
Private Sub Form_Load()
Dim arreglo As Variant, i As Integer
arreglo = devuelveArreglo
For i = 0 To UBound(arreglo)
MsgBox arreglo(i)
Next i
End Sub
Private Function devuelveArreglo() As Variant
devuelveArreglo = Array("a", "b", "c", "d")
End Function