Compile and Execute VB.Net Online

Module VBModule
 
    Sub Main()
        DIM PrnDateSnum
        DIM PrnDateTxt
        DIM partnumber
        DIM TESTNUMBER
        DIM MsComm1
        DIM BC
        DIM MSIZE
        DIM N
        DIM CMD
        DIM PARTCODE
        DIM PARTNUMBERTXT
        DIM PARTCODE_PRE
        DIM PARTCODE_BASE
        DIM PARTCODE_SUF
        DIM BROADCASTCODE
    
        PARTCODE = "EB3B-19B555-LG"
        'PARTCODE = "AB39-18478-AL"
        PrnDateSnum = "161202"
        PrnDateTxt = "02-Dec-2016 14:08:17"
        PARTNUMBER = "172"
    
    	PARTCODE_PRE = Left(PARTCODE,4)
		PARTCODE_SUF = Left(Right(PARTCODE,2),1)
		BROADCASTCODE = Left(Right(PARTCODE,2),1)
	    	IF LEN (PARTCODE) = 13 THEN

			PARTCODE_BASE = Mid(PARTCODE,6,5)

		END IF

	    	IF LEN (PARTCODE) = 14 THEN

			PARTCODE_BASE = Mid(PARTCODE,6,6)

		END IF
		
			IF LEN (PARTNUMBER) = 1 THEN
        		PARTNUMBERTXT = "000" & PARTNUMBER
        	END IF
        
        	IF LEN (PARTNUMBER) = 2 THEN
        		PARTNUMBERTXT = "00" & PARTNUMBER
        	END IF
        
        	IF LEN (PARTNUMBER) = 3 THEN
        		PARTNUMBERTXT = "0" & PARTNUMBER
        	END IF
		

		CMD = "I8,A" & CHR(13) & CHR(10) & "ZN" & CHR(13) & CHR(10) & "q400"  & CHR(13) & CHR(10) & "S3" & CHR(13) & CHR(10) & "O" & CHR(13) & CHR(10) & "JF" & CHR(13) & CHR(10) & "ZB" & CHR(13) & CHR(10) & "Q208,25" & CHR(13) & CHR(10) & "N" & CHR(13) & CHR(10)
		CMD = CMD + "A10,10,0,4,4,4,N," &"""FAILED""" &  CHR(13) & CHR(10)
		CMD = CMD + "A50,110,0,1,2,2,N," &"""" & PARTCODE & """"&  CHR(13) & CHR(10)
		CMD = CMD + "A50,145,0,1,1,1,N," & """" & PrnDateTxt & """" &  CHR(13) & CHR(10)
		CMD = CMD + "A50,170,0,1,1,1,N," &"""" & "SERIAL #: " & PrnDateSnum & PARTNUMBERTXT & """" &  CHR(13) & CHR(10)
		CMD = CMD + "P1" & CHR(13) & CHR(10)
		
        Console.WriteLine(PARTCODE_BASE)
        Console.ReadLine()
    End Sub
  
End Module