Private Sub Command1_Click()
Dim Text As String
 
Text = "ABC" & vbCrLf & "nur text" & vbCrLf & "dies und das"
 
MsgBox Zeile(Text, 1, vbCrLf)
MsgBox Zeile(Text, 2, vbCrLf)
MsgBox Zeile(Text, 3, vbCrLf)
 
End Sub
 
Private Function Zeile(Text As String, nZeile As Long, Trenner As String) As _
  String
Dim Zeilen() As String
Dim N As Long
 
On Error GoTo Fehler
 
Zeilen = Split(Text, Trenner)
 
Zeile = Zeilen(nZeile - 1)
 
Exit Function
 
Fehler:
  MsgBox Err.Description, vbExclamation, "Fehler"
  Exit Function
 
End Function