If InStr(cominput, "GetPos") > 0 Then
Call PortOpen
???????
MSComm2.Output = "AT+CMGR=" & cominput & vbCr
???????
ElseIf InStr(cominput, "CMTI:") > 0 Then
MsgNo = (Mid(cominput, InStr(cominput, "SM") + 4))
Text3 = MsgNo
Call ReadMsg(Text3)
End If

"CMTI:" looks to be being sent back to CommPort = 7
but
"GetPos" only opens CommPort = 4 but does not send anything