Danke. Habe es so gelöst.....

For X = 4 To 6
Portd.x = 0
For Y = 0 To 3
If Pind.y = 0 Then
Y = Y + 1
Tast = X + Y
Tast = Tast * Y
Select Case Tast
Case 5 : Taste = 1
Case 6 : Taste = 2
Case 7 : Taste = 3
Case 12 : Taste = 4
Case 14 : Taste = 5
Case 16 : Taste = 6
Case 21 : Taste = 7
Case 24 : Taste = 8
Case 27 : Taste = 9
Case 32 : Goto Tonausgabe
Case 36 : Taste = 0
Case 40 : Goto Loeschen
End Select
If I < 5 Then
Folge_string = Folge_string + Str(taste)
Sound Buzzer , 40 , 200
I = I + 1
End If


End If

Next
Portd.x = 1
Next