Imports System.IO.Ports
Public Class Form1
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim newPort As New SerialPort
 
        Dim x As String()
        x = SerialPort.GetPortNames()
 
        newPort.PortName = "AVMISDN3" 'COM1 z.b funzt hier prima!
        newPort.Open()
        newPort.Close()
 
    End Sub
End Class

VB RULEZ !