Check if this function has bad coding in it please!

[VIP3R]

Is there something wrong with this function:

Function RetLine(Text As String, Line As Long) As String
    Dim Lines As String
    Lines = Split(Text, vbCrLf)
    RetLine = Lines(Line)
End Function

If there is something wrong then please tell me! Is there a better way of implementing something like this!