Can someone help me take a look, did i use a good way to write it how can i improve it

[christing]

Try

boolPrinterActivate = CBool(CInt(RetrieveFromIniFile("COMMPORT_PRINTER", "ENABLE", "0", strIniPath)))

strSetting = CStr(RetrieveFromIniFile("COMMPORT_PRINTER", "SETTING", "115200,N,8,1", strIniPath))
arrSetting = Split(strSetting, ",")
''strBoudRate = arrSetting(0)
''strParity = arrSetting(1)
''strDataBit = arrSetting(2)
''strStopBit = arrSetting(3)

SerialPort.Parity = Parity.None
SerialPort.StopBits = StopBits.One
SerialPort.Handshake = Handshake.None
SerialPort.Open()
SerialPort.ReadTimeout = 200

strBoudRate = CStr("115200")
strParity = CStr("N")
strDataBit = CStr("8")
strStopBit = CStr("1")

Continue reading...