Private Sub Cezaacilan_DblClick(Cancel As Integer)

    Select Case Cezaacilan

        Case "Zimmet"

        MsgBox ("zimmet")

        Case "Ödenmiş Cezalar"

        MsgBox ("Ödenmiş Cezalar")

        Case "Ödenmemiş Cezalar"

        MsgBox ("Ödenmemiş Cezalar")

    End Select

End Sub

koda msgbox olarak yazdığım yerleri değiştir.