'setup comm object
    With MSComm1
        .CommPort = GetSetting(App.Title, "Settings", "CommPort", 1)
        .Settings = "9600,N,8,1"            ' setup for DEBUG
        .RThreshold = 1                     ' process one char at a time
        .InputLen = 1
        .InputMode = comInputModeText       ' input will be strings
    End With