Wie schon gesagt wurde wird es so vermutlich nicht gehen da eventuell ein LineFeet zwischendrin gesendet wird.
Ändere das mal so ab:


Private Sub Command1_Click()
dim befehl as string

befehl="#s" & chr(1) & chr(80)
mscomm1.output =befehl
End Sub

Wenn´s dann immer noch nicht klappt müsste es eigentlich an der Verkabelung mit dem Max liegen. Bist du sicher das da nix vertauscht ist? Vielleicht postest du mal Schaltskizze.