How read data from port

See more:

VBA

API

hi guys

i try to recieve data through the usb port but fail and hang system , i m able to send only

What I have tried:

Dim Comm1 As Long
Comm1=FreeFile
Open "COM6:9600,N,8" .... Read And Write #Comm1
Dim str as string
buff=String$(256,VbnullChar)
input #Comm1,,Buff
Me.Text0=Left(buff,instr(buff,vbnullchar)
buff=String$(64," ")
input #Comm1,,Buff
Me.Text0=Buff
Close #Comm1