This should work (but is not tested):
Public Function FirstLineOfText(strFromText As String) As String
Dim strResult As String
Dim lngLineBreakPos As Long
lngLineBreakPos = InStr(strFromText,vbCrLf)
If lngLineBreakPos > 0 Then
strResult = Left$(strFromText, lngLineBreakPos - 1)
Else
strResult = strFromText
End If
FirstLineOfText = strResult
End Function
If this is to be used when Nulls are possible, then perhaps, this...
Public Function FirstLineOfText(varFromText As Variant) As Variant
Dim varResult As Variant
Dim lngLineBreakPos As Long
varResult= Null
If IsNull(varFromText) Then Goto Fn_Return
lngLineBreakPos = InStr(varFromText,vbCrLf)
If lngLineBreakPos > 0 Then
varResult = Left$(varFromText, lngLineBreakPos - 1)
Else
varResult = varFromText
End If
Fn_Return:
FirstLineOfText = varFromText
End Function
On Mon, 3 Nov 2003 17:43:06 +1100, "Norman Fritag" <mt*****@ozemail.com.au>
wrote: