ارسال کاراکتر به پورت سریال

[kaka11111]

سلام
راستش من برنامه نویس نیستم . رشته ام الکترونیکه و برای انجام یک پروژه به برنامه نویسی نیاز پیدا کردم .
علت انتخاب vb هم اینه که من برای برنامه نویسی در میکرو کنترل ها از بیسیک استفاده میکنم و کمی با دستوراتش آشنا هستم .
برنامه من باید ارتباط بین دو کامپوتر را از طریق اینترنت برقرار کرده و از برنامه client یک کاراکتر رو به server بفرسته و سپس server اون کاراکتر رو به پورت سریال بفرسته و میکرو اون کاراکتر رو بگیره و عکس العمل مناسب رو انجام بده .
مشکل اینجاست که با وجود اینکه از کار کرد میکرو مطمئن هستم و می دانم که اگر کاراکتر ی از پورت سریال فرستاده بشه حتماً میکرو درست کار میکنه میکرو کنترلر به برنامه vb من جواب نمیده .
این کد برنامه سروره :

'vaghti ro Start click koni in dastorat ejra mishe
Private Sub Command1_Click()
Com.CommPort = 1 'porte serial shomareye 1 (poshte computer)
Com.Settings = "4800,N,8,1" 'tanzimat baud tedad bit ersali
Com.PortOpen = True 'porto baz kon
Win.LocalPort = 789 'porte shomareye 789 baraye tcp/ip
Win.Listen 'porto baz kon
End Sub
'har vaght kasi bekhad vasl besh in dastora ejra mishan
Private Sub Win_ConnectionRequest(ByVal requestID As Long)
If Win.State <> sckConnected Then 'age ghablan vasl nashodim
Win.Close
Win.Accept requestID 'darkhast bargharie ertebat ro ghabol kon
End If
End Sub
'har vaght az client chizi berese in dastorat ejra mishe
Private Sub Win_DataArrival(ByVal bytesTotal As Long)
Dim Data As String * 1
Win.GetData Data 'etelaato dar moteghayere data zakhire kon
Com.Output = Data 'etelaato mostaghim be porte serial befrest
End Sub

منتظر راهنمایی هاتون هستم