Imports System

Public Module Module1

    Sub Main()

        Dim c as integer = 1

        Dim a as boolean = false

        Dim memo as String

        If c>0 Then

            memo+="Cpt Codes: "+Environment.NewLine

        End If

        If a Then

            memo+="Dme stuff: "+Environment.NewLine

        End If

        Console.WriteLine(memo)

    End Sub

End Module

​

​