How to convert Visual C++ to VB

Can anyone convert this over to vb this is converted in Visual C++
unsigned char ucByte;
	int nCount;
	BOOL bHave_start_char = FALSE;
	
	DWORD dwStart_time = GetTickCount ();
	
	while (GetTickCount () - dwStart_time < 500) {
		while (m_pRS232->RXCount () > 0) {
			m_pRS232->Read_Buffer ((char*) &ucByte, 1);
	
//			#ifdef _DEBUG
//				Debug__Send_Byte_to_Output_Wnd (ucByte);
//			#endif
	
			if (bHave_start_char == FALSE) {
				if (ucByte == '~') {													//  TRUE = Have the start character
					bHave_start_char = TRUE;
					nCount = 1;
				}
	
				continue;
			}
	
			switch (nCount) {
				case 1: if (ucByte != (unsigned char) '\x00') break; nCount++; continue;			//  Number of bytes, MSB
				case 2: if (ucByte != (unsigned char) '\x03') break; nCount++; continue;			//  Number of bytes, LSB
				case 3: if (ucByte != (unsigned char) '\x89') break; nCount++; continue;			//  API Identifier TxD status
				case 4: if (ucByte != (unsigned char)    'm') break; nCount++; continue;			//  Frame ID
				case 5: if (ucByte != (unsigned char) '\x00') break; nCount++; return TRUE;		//  Status byte, '\x00' = Successful
			}
	
			bHave_start_char = FALSE;
		}
	}
	
	return FALSE;

Open in new window

cmdolcetAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

DhaestCommented:
I think that it will be easier to see what the function should do and rewrite it...
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
cmdolcetAuthor Commented:
Ok i can do that, however I can't copy the visual C++ code and run it in vb can I?
0
TheBrainArtsCommented:
Nno you cannot do that and i am doing the translation for you.   But the best is to do as Dhaest say, identify the function input and ouptut.  Because in the bribe of code you submitted there is a rs232 port mentionned there which is not declare in this code portion.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
.NET Programming

From novice to tech pro — start learning today.