alles halb so wild, wenn man weiß wie geht. 
 
Du wirst sicherlich ein MSComm Steuerelement benutzen. Öffne zunächst den Port: 
 
frmXyz.MSComm1.PortOpen = True
 
Anschließend lässt sich mit der folgenden Funktion (fast) jede beliebige _
  Baudrate einstellen:
 
Public Declare Function GetCommState Lib "kernel32" (ByVal nCid As Long, lpDCB _
  As DCB) As Long
Public Declare Function SetCommState Lib "kernel32" (ByVal hCommDev As Long, _
lpDCB As DCB) As Long
 
'********************************************************************
Function SetBaudRate(lBaudrate As Long) As Boolean
'DESC: Sets the MSCOMM baud rate to any value (standard or non-standard)
' *** NOTE: PORT MUST BE OPEN FOR THIS FUNCTION TO WORK ***
'********************************************************************
 
Dim ComDcb As DCB ' windows API type in w32comm.bas file
Dim ret As Long
 
  SetBaudRate = False
 
  ' Need to get current state before setting new value
  ret = GetCommState(frmXyzMem.MSComm1.CommID, ComDcb)
  If ret = 0 Then
    Beep
    MsgBox "Could not read current state of ISO port.", _
      vbCritical Or vbOKOnly, App.Title & " " & "Port Error"
  Else
    ' Modify baud rate from 9600 to new rate
    ComDcb.BaudRate = lBaudrate
    ret = SetCommState(frmXyzMem.MSComm1.CommID, ComDcb)
    If ret = 0 Then
      Beep
      MsgBox "Could not set baud rate to " & CStr(lBaudrate), _
        vbCritical Or vbOKOnly, App.Title & " " & "Port Error"
    Else
      SetBaudRate = True
    End If
  End If
 
End Function
 
 
Bei mir funktionierts. Auch wenn das Timing der Telegramme natürlich unter _
  Windows nicht ganz ohne ohne ist. Wenn Du eine Idee hast, wie man ein _
  WakeUp-Pattern unter VB hinkriegt, lass mal von Dir hören. 
 
Viel Erfolg und schönen Gruß, 
VBilbo