Beim ersten überfliegen ist mir schon mal aufgefallen das du ein ENDIF innerhalb einer Zeile nutzt. In Basic wird das nur genutzt wenn man mehrere Anweisungen nach THEN hat.

Also es müsste so lauten:

If Irma > 1 Then
Sound Portd.7 , 400 , 400
End If

oder so

If Irma > 1 Then Sound Portd.7 , 400 , 400

Aber stell dir mal vor es wären 4Volt. Dann würden ja alle deine Bedingungen erfüllt und alle Sound-Befehle direkt nacheinander ausgeführt.
So wird´s also nix.
Schau dir mal die SELECT CASE Anweisung in der Hilfe an, das dürfte besser passen.

Gruß Frank