最終的に問題が解決しました。ロジックを残しますので、必要な方は参考にして下さい。
*****************************************************

long  ll_rtn
long GENERIC_READ = 2147483648 // 0x80000000
long GENERIC_WRITE = 1073741824 // 0x40000000
long OPEN_EXISTING = 3
long FILE_ATTRIBUTE_NORMAL = 128// 0x80
String ls_buffer
Long ll_read_len, ll_バッファ長
dcb01 dcb_connect
dcb02 dcb_timeout

//ポートのオープン
IF as_connect = \'OPEN\' THEN
ll_rtn = CreateFileA(gs_シリアルポート, & 
GENERIC_READ + 
GENERIC_WRITE, &
1, &
0, &
OPEN_EXISTING, &
FILE_ATTRIBUTE_NORMAL, &
0)

IF ll_rtn = -1 OR ll_rtn = 0 THEN
messagebox(\"エラー\",\"通信できません\", Exclamation!)
RETURN -1
END IF

gl_シリアル_hfile = ll_rtn  

// ポートの設定
GetCommState(gl_シリアル_hfile, dcb_connect)
dcb_connect.l_BaudRate = 9600 // 回線速度
dcb_connect.s_ByteSize = char(8) // 送受信データbit長
dcb_connect.s_Parity = char(0) // パリティ無し
dcb_connect.s_StopBits = char(0) // StopBit 1bit
dcb_connect.s_ErrorChar = char(21) // エラーキャラクタ \"!\"
ll_rtn = SetCommState(gl_シリアル_hfile, dcb_connect)

// タイムアウト設定
GetCommTimeOuts(gl_シリアル_hfile, dcb_timeout)
dcb_timeout.ReadIntervalTimeout = 250
dcb_timeout.ReadTotalTimeoutConstant = 500
SetCommTimeOuts(gl_シリアル_hfile, dcb_timeout)

END IF

//ポートのクローズ
IF as_connect = \'CLOSE\' THEN
ll_rtn = CloseHandle(gl_シリアル_hfile)
IF ll_rtn = -1 OR ll_rtn = 0 THEN
messagebox(\"エラー\",\"通信できません。\", Exclamation!)
RETURN -1
END IF
END IF

RETURN 0