Imports System

Public Class Test
	Public Shared Sub Main()
	
		Dim code As String
		Dim deptCode As String
		Dim departmentName As String
		
		code = "gar123"
		
		If code.Length = 6 Then
		
			deptCode = code.Substring(0, 3)
			deptCode = deptCode.ToUpper
				
			If deptCode = "CLO" Then
				departmentName = "Clothing"
			ElseIf deptCode = "FRE" Then
				departmentName = "Fresh Produce"
			ElseIf deptCode = "GAR" Then
				departmentName = "Gardening"
			ElseIf deptCode = "FRO" Then
				departmentName = "Frozen goods"
			ElseIf deptCode = "NON" Then
				departmentName = "Nonperishable goods"
			Else
				System.Console.WriteLine("Enter Valid Code")
				
			End If
		
		Else
		
			System.Console.WriteLine("Enter 6 Letter Code")
			
		End If
		
		System.Console.WriteLine(departmentName)
		
	End Sub
End Class