Well, after wrestling around with this a bit more I finally figured it out.
What are the rules for posting code here?
Dim intPortID As Integer
Dim lngStatus As Long
Dim strDatain As String
Dim x As Long, endhere As Long
Dim singlechar As String
intPortID = Range("A4").Value
lngStatus = CommRead(intPortID, strDatain, 20)
endhere = Len(strDatain)
For x = 1 To endhere
singlechar = Asc(Mid(strDatain, x, 1))
Range("H" & x).Value = singlechar
Next
Range("G9").Value = strDatain
Range("F9").Value = lngStatus
Range("F10").Value = Len(strDatain)
Bookmarks