Communictaion Port

Hi

Can some one explain me the functioning of these lines . Mainly these lines

Buffer = MSComm1.Input
Debug.Print "Receive - " & StrConv(Buffer, vbUnicode)

If comm1.PortOpen Then
comm1.PortOpen = True
Buffer = 0
comm1.InputLen = 11
Buffer = MSComm1.Input
Debug.Print "Receive - " & StrConv(Buffer, vbUnicode)
Else
comm1.PortOpen = True
Buffer = 0
comm1.InputLen = 11
Buffer = comm1.Input
End If

Thanks