Check if this function has bad coding in it please!

Is there something wrong with this function:

Code:

---

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!

Lines is an array, so try:

Code:

---

Dim Lines() As String

---

Cheers,

P.

thanx