RESOLUTION
To workaround this problem, add the following code in the code window of Form1, for the sample created under Steps to Reproduce Behavior:
Declare Function WriteFile Lib "Coredll" _
(ByVal hFile As Long, ByVal lpBuffer As String, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Long) As Long
Public Sub SendData(ByVal hCommID As Long, sData As String)
Dim lRet, i, iWrite
For i = 1 To Len(sData)
lRet = WriteFile(hCommID, ChrB(Asc(Mid(sData, i, 1))), 1, iWrite, 0)
Next
End Sub
Next replace the Command1_Click event code with the following:
Private Sub Command1_Click()
SendData Comm1.CommID, "ATDT" & vbCrLf
End Sub
Now run the project on the device and click on the CommandButton. You should now hear a dialtone.