Imports System

Public Module Module1

    Public Sub Main()

        With New FROI_WorkInfo With { .EmploymentStatus = "323" }

            If .EmploymentStatus IsNot String.Empty Then

            Select Case .EmploymentStatus

                Case .EmploymentStatus = 323

                    Console.WriteLine("Full Time")

                Case .EmploymentStatus = 324

                    Console.WriteLine("Part Time")

                Case .EmploymentStatus = 48083

                    Console.WriteLine("Seasonal")

                Case .EmploymentStatus = 331

                    Console.WriteLine("Volunteer")

                Case .EmploymentStatus = 329

                    Console.WriteLine("Other")

                End Select

            End If

        End With

    End Sub

End Module

    Public Class FROI_WorkInfo

        Public Property EmploymentStatus As String

    End Class