نسخ أول سطر فقط

Private function GetFirstLine(byval Text as string)
Dim Tmp() as string
Tmp = split(Text,vbcrlf)
GetFirstLine = tmp(0)
End Function

أحسنت أخي العزيز راكان الحنيطي

جزاك الله خيرا