Console.WriteLine(FormatAddress(",", "line 1", "", "line 3", "", "", "", "line4"))
Public Function FormatAddress(separator As String, ParamArray addressLines() As String) As String
Dim address As String = String.Empty
For i As Integer = 0 To addressLines.Length - 1
If addressLines(i).Trim().Length > 0 Then
address += addressLines(i).Trim()
If ((i < addressLines.Length - 1) AndAlso (addressLines(i + 1).Trim().Length > 0)) Then