Private Sub Print()
  Dim mscomm1 as new MSComm
  Set mscomm1 = New MSComm
 
  mscomm1.CommPort = 1
  mscomm1.Settings = "9600,N,8,1"
  mscomm1.PortOpen = True
  mscomm1.Handshaking = comRTS
  mscomm1.Output = "Probetext"
  mscomm1.PortOpen = False
End Sub