Event procedure using iif for line breaks.

[ilushn]

I am updating a large report that is queried from a table which I
recently changed. The table now contains line breaks for long company
names. The problem with this is that in my report I have a colored box
which changes dimensions according to how many lines of text there
are. The current code in VB is:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim intLines As Integer

Me.FillStyle = 0
Me.DrawWidth = 8
Me.FillColor = 16777164

If Len(txtAddressLine1 & "") <> 0 Then intLines = intLines + 1
If Len(txtAddressLine2 & "") <> 0 Then intLines = intLines + 1
If Len(txtEmailAdd & "") <> 0 Then intLines = intLines + 1
If Len(txtWebpage & "") <> 0 Then intLines = intLines + 1

Select Case intLines
Case 0
Me.Line (1, 1)-(9606, 1530), 0, B
Case 1
Me.Line (1, 1)-(9606, 1890), 0, B
Case 2
Me.Line (1, 1)-(9606, 2250), 0, B
Case Else
Me.Line (1, 1)-(9606, 2610), 0, B
End Select

End Sub

I'm not that experienced with VB, but there should be some way to do
this. The name field that I would be using is txtClinicName.

Thanks!