Imports System

Imports System.Text

​

Public Class Program

​

    Public Shared Sub Main()

        Dim name As Name = New Name()

        name.fName = "Umesh"

        name.lName = "Regmi"

        Console.Write(name.fullName)

    End Sub

End Class

​

Public Class Name

​

    Public Property fName As String

​

    Public Property lName As String

​

    Public Property fullName As String

        Get

            Dim sb As StringBuilder = New StringBuilder()

            sb.Append(If(String.IsNullOrWhiteSpace(fName), " ", fName))

            sb.Append(" ")

            sb.Append(If(String.IsNullOrWhiteSpace(lName), " ", lName))

            Return sb.ToString()

        End Get

    End Property

End Class

​