1: 2: 3: 4: 5: 6: 7:
Public Function FmtRptField(ByVal input As String) As String Dim szResult As String = "" If input.length > 0 Then szResult = input & vbcrlf End If Return szResult End Function