Ich weis jetzt nicht, welchen pin du wirklich benutzt ?
Habe es mit pind.3 und 4 probiert und funktioniert jetzt.

If Pind.3 = 0 And Ocr1al < 255 Then
For Dimmen = 0 To 255
Ocr1al = Dimmen
Waitms 15
Next Dimmen
End If
If Pind.4 = 0 And Ocr1al > 0 Then
For Dimmen = 255 To 0 Step -1
Ocr1al = Dimmen
Waitms 15
Next Dimmen
End If

Ich hatte in der unteren schleife "Step -1" vergessen, deshalb wurde nicht runtergezählt.
Außerdem muß bei If ...... Ocr1l und nicht Dimmen rein.